;ELC   
;;; Compiled by rms@psilocin.gnu.org on Thu Apr 16 21:08:08 1998
;;; from file /gd/gnu/emacs/lisp/mail/mail-extr.el
;;; in Emacs version 20.2.9.4
;;; with bytecomp version 2.38
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mail-extr.el' was compiled for Emacs 19.29 or later"))


(custom-declare-group 'mail-extr nil "Extract full name and address from RFC 822 mail header." :prefix "mail-extr-" :group 'mail)
#@188 *Whether to try to guess middle initial from mail address.
If true, then when we see an address like "John Smith <jqs@host.com>"
we will assume that "John Q. Smith" is the fellow's name.
(custom-declare-variable 'mail-extr-guess-middle-initial 'nil '(#$ . -668) :type 'boolean :group 'mail-extr)
#@190 *Whether to ignore a name that is just a single word.
If true, then when we see an address like "Idiot <dumb@stupid.com>"
we will act as though we couldn't find a full name in the address.
(custom-declare-variable 'mail-extr-ignore-single-names 't '(#$ . -971) :type 'boolean :group 'mail-extr)
#@176 *Matches prefixes to the full name that identify a person's position.
These are stripped from the full name because they do not contribute to
uniquely identifying the person.
(custom-declare-variable 'mail-extr-full-name-prefixes '(purecopy "\\(Prof\\|D[Rr]\\|Mrs?\\|Rev\\|Rabbi\\|SysOp\\|LCDR\\)\\.?[ 	\n]") '(#$ . -1273) :type 'regexp :group 'mail-extr)
#@62 *Whether the local mail transport agent looks at ! before @.
(custom-declare-variable 'mail-extr-@-binds-tighter-than-! 'nil '(#$ . -1635) :type 'boolean :group 'mail-extr)
#@121 *Whether to throw away information in UUCP addresses
by translating things like "foo!bar!baz@host" into "baz@bar.UUCP".
(custom-declare-variable 'mail-extr-mangle-uucp 'nil '(#$ . -1815) :type 'boolean :group 'mail-extr)
(byte-code "\306\307!\300	B\306\310P!\302	B\306\311!\303	B\306\312!\304	B\306\313\314\"!\305	B\306\313\315\n\f$!\316	B\306\313\317\n\211#!\320	B\306\321!\322	B\306\323!\324	B\306\325!\326	B\306\327!\330	B\306\313\331\n\f$!\332	B\306\313\333\"!\334	B\306\335!\336	B\306\337! \340	B\306\313\341\f$!\"\342	B\306\343\"\344\345\346\260!'\347	B\306\350!)\351	B\306\352!+\353	B\306\354!-\355	B\306\356!/\357	B\306\360!1\361	B\306\3131\362\"!3\363	B\306\3131\364\"!5\365	B\306\3131\366\"!7\367	B\370 9\371	B\370 :\372	B\370 ;\373	B\370 <\374	B\370 =\375	B\376\377\201@ \"\207" [mail-extr-all-letters-but-separators current-load-list mail-extr-all-letters mail-extr-first-letters mail-extr-last-letters mail-extr-leading-garbage purecopy "][A-Za-z{|}'~0-9`\240-\377" "---" "A-Za-z\240-\377" "A-Za-z\240-\377`'." format "[^%s]+" "\\([%s][%s]\\)\\.+\\([%s]\\)" mail-extr-bad-dot-pattern "\\(,? ?\\([JjSs][Rr]\\.?\\|V?I+V?\\)\\)\\([^%s]\\([^%s]\\|\\'\\)\\|\\'\\)" mail-extr-full-name-suffix-pattern "V?I+V?\\b" mail-extr-roman-numeral-pattern "\\([A-Z]+[-_/]\\|[A-Z][A-Z][A-Z]?\\b\\)" mail-extr-weird-acronym-pattern "\\(aka *\\)?[a-zA-Z.]+[!@][a-zA-Z.]" mail-extr-alternative-address-pattern " [-{]\\|--\\|[+@#></;]" mail-extr-trailing-comment-start-pattern "\\b[%s][%s]*[%s]" mail-extr-name-pattern "\\b[%s]\\([. ]\\|\\b\\)" mail-extr-initial-pattern "\\(\\([Ee]xt\\|\\|[Tt]ph\\|[Tt]el\\|[Xx]\\).?\\)? *\\+?[0-9][- 0-9]+" mail-extr-telephone-extension-pattern "\\b\\(DX[0-9]+\\|[AKNW][A-Z]?[0-9][A-Z][A-Z]?[A-Z]?\\)" mail-extr-ham-call-sign-pattern "\\b[%s][%s]+[%s]" mail-extr-normal-name-pattern "\\`\\(" "\\|" "\\) +\\(" "\\)\\(,\\|\\'\\)" mail-extr-two-name-pattern "Multiple recipients of list \\([-A-Z]+\\)" mail-extr-listserv-list-name-pattern "[0-9][0-9]-[JFMASOND][aepuco][nbrylgptvc]-[0-9][0-9][0-9][0-9] [0-9]+ *" mail-extr-stupid-vms-date-stamp-pattern "~{\\([^~].\\|~[^}]\\)+~}" mail-extr-hz-embedded-gb-encoded-chinese-pattern "[a-z]?[a-z]?\\(/[A-Za-z]+\\(\\.[A-Za-z]+\\)?=[^/]+\\)+/?\\'" mail-extr-x400-encoded-address-pattern "/%s=\\([^/]+\\)\\(/\\|\\'\\)" mail-extr-x400-encoded-address-field-pattern-format "[Ss]" mail-extr-x400-encoded-address-surname-pattern "[Gg]" mail-extr-x400-encoded-address-given-name-pattern "[Pp][Nn]" mail-extr-x400-encoded-address-full-name-pattern make-syntax-table mail-extr-address-syntax-table mail-extr-address-comment-syntax-table mail-extr-address-domain-literal-syntax-table mail-extr-address-text-comment-syntax-table mail-extr-address-text-syntax-table mapcar #[(pair) "@J\302\303A\")\207" [pair syntax-table mapcar #[(item) "G\305=\203 \306@A@	#\207@A@\3058\211X\205. \306\f\n	#\210\fT\211\202 +\207" [item syntax-table syntax bound char 2 modify-syntax-entry] 5]] 3] ((mail-extr-address-syntax-table (0 31 "w") (32 " ") (33 126 "w") (127 "w") (128 255 "w") (160 " ") (9 " ") (13 " ") (10 " ") (40 ".") (41 ".") (60 ".") (62 ".") (64 ".") (44 ".") (59 ".") (58 ".") (92 "\\") (34 "\"") (46 ".") (91 ".") (93 ".") (37 ".") (33 ".")) (mail-extr-address-comment-syntax-table (0 255 "w") (32 " ") (160 " ") (9 " ") (13 " ") (10 " ") (40 "()") (41 ")(") (92 "\\")) (mail-extr-address-domain-literal-syntax-table (0 255 "w") (32 " ") (160 " ") (9 " ") (13 " ") (10 " ") (91 "(]") (93 ")[") (92 "\\")) (mail-extr-address-text-comment-syntax-table (0 255 "w") (32 " ") (160 " ") (9 " ") (13 " ") (10 " ") (40 "()") (41 ")(") (91 "(]") (93 ")[") (123 "(}") (125 "){") (92 "\\") (34 "\"")) (mail-extr-address-text-syntax-table (0 127 ".") (128 255 "w") (32 " ") (9 " ") (13 " ") (10 " ") (65 90 "w") (97 122 "w") (45 "w") (125 "w") (123 "w") (124 "w") (39 "w") (126 "w") (48 57 "w")))] 8)
(defalias 'mail-extr-delete-char '(macro . #[(n) "\301\302\303\304EE\207" [n delete-region (point) + (point)] 5]))
(defalias 'mail-extr-skip-whitespace-forward '(macro . #[nil "\300\207" [(skip-chars-forward " 	\n\240")] 1]))
(defalias 'mail-extr-skip-whitespace-backward '(macro . #[nil "\300\207" [(skip-chars-backward " 	\n\240")] 1]))
(defalias 'mail-extr-undo-backslash-quoting '(macro . #[(beg end) "\302\303\304	E\305BBD\207" [beg end save-excursion save-restriction narrow-to-region ((goto-char (point-min)) (while (search-forward "\\" nil t) (mail-extr-delete-char -1) (or (eobp) (forward-char 1))))] 5]))
(defalias 'mail-extr-nuke-char-at '(macro . #[(pos) "\301\302D\303BB\207" [pos save-excursion goto-char ((mail-extr-delete-char 1) (insert 32))] 3]))
(put 'mail-extr-nuke-outside-range 'edebug-form-spec '(symbolp &optional form form atom))
(defalias 'mail-extr-nuke-outside-range '(macro . #[(list-symbol beg-symbol end-symbol &optional no-replace) "\304>\204\n \305\306!\210\307\310	D\311B\312\310\313\314\315\316\317\nE\320\317EE\321?\205% \322\323\"BD\324BBBB\325	\326\327	EEF\207" [no-replace list-symbol end-symbol beg-symbol (t nil) error "no-replace must be t or nil, evaluable at macroexpand-time" let temp (ch) while (setq ch (car temp)) cond or > ch < append ((mail-extr-nuke-char-at ch)) ((setcar temp nil)) ((setq temp (cdr temp))) setq delq nil] 11]))
(defalias 'mail-extr-demarkerize #[(marker) "\302!\203 \303!\304\211\223\210	)\207\207" [marker temp markerp marker-position nil] 3])
(defalias 'mail-extr-markerize #[(pos) "\301!\204\n \204\f \207\302!\207" [pos markerp copy-marker] 2])
(defalias 'mail-extr-last '(macro . #[(list) "\301\300DC\302BB\207" [list let ((while (not (null (cdr list))) (setq list (cdr list))) (car list))] 3]))
(defalias 'mail-extr-safe-move-sexp '(macro . #[(arg) "\301\302\303\304\305\306\307E\310BBD\311BB\312BBB\207" [arg condition-case error progn goto-char or scan-sexps (point) ((point)) (t) ((error (if (string-equal (nth 1 error) "Unbalanced parentheses") nil (while t (signal (car error) (cdr error))))))] 8]))
(byte-code "\301B\302B\303B\301\207" [current-load-list disable-initial-guessing-flag cbeg cend] 2)
#@734 Given an RFC-822 address ADDRESS, extract full name and canonical address.
Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
If no name can be extracted, FULL-NAME will be nil.

If the optional argument ALL is non-nil, then ADDRESS can contain zero
or more recipients, separated by commas, and we return a list of
the form ((FULL-NAME CANONICAL-ADDRESS) ...) with one element for
each recipient.  If ALL is nil, then if ADDRESS contains more than
one recipients, all but the first is ignored.

ADDRESS may be a string or a buffer.  If it is a buffer, the visible 
 (narrowed) portion of the buffer will be interpreted as the address.
 (This feature exists so that the clever caller might be able to avoid
 consing a string.)
(defalias 'mail-extract-address-components #[(address &optional all) "\306\307!\306\310!\311\212	q\210\312 \210\313	!\210\314!\210~\210\315 \210\311\316c\210;\203. c\210\202@ \317!\203; \320!\210\202@ \321\322\"\210\323ed\311#\210\212\nq\210\312 \210\313\n!\210\314!\210\311)eb\210\324\325\311\326#\203k \327\330\326\"\210\202[ @\204t \204\227\feb\210\331\311w\210m\204\227\f\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefeb\210g\316=\204\375 \316c\210\332\311w\210m\204X`ffX\204f\333=\204`Xf\333=\203Z\314g!\210T\204<\212\334u\210\332\311w\210`f)\335=\204<`T\321\336\337\217\204F\334u\210\314!\210T\203@S\204@`S\202@f\340=\203\223R\204y\212\334u\210\332\311w\210`f)\340=\204y`R\321\341\342\217\204\203\334u\210R\203@Q\204@`Q\202@f\343=\203\260\314h!\210\321\344\345\217\204\251\334u\210\314!\210\202@f\346=\203\374d\204\304`Tf\347=\203\346c\203\374d\211iA\203\333iA\211i\202\316i@)c@W\203\374\350`T!ee`T}\210``T|\210\333f\202@f\351\236A\211Y\203Y`YJBL\210\334u\210\202@f\352=\203#\334u\210\202@f\353>\203=\212`b\210``T|\210\316c\210)\334u\210\202@\334v\210f\333=\204\375 f\346=\203Rm\204\375 `W\202\375 dA\203v\212d@b\210``T|\210\316c\210)dA\211d\202ZcA\203\226\212cA@b\210``T|\210\316c\210)c\211AA\241\210\202vbG\334V\203\277aG\334=\203\277]\204\277d\204\277eb\210``T|\210`Cd\354c\210d\203\323c\204\323db\210`Cc\355c\210c\203\357d\204\357\212c@b\210``T|\210\316c\210)\311cc@cd@\211d\203\234b\311j\211K\203*K@\211jcV\204jdW\203!K\311\240\210KA\211K\204\356\311b\"b*_\311j\211K\203_K@\211jcV\204QjdW\203VK\311\240\210KA\211K\204=\356\311_\"_*^\311j\211K\203\224K@\211jcV\204\206jdW\203\213K\311\240\210KA\211K\204r\356\311^\"^*a\203a@KaAad\203\375c\203\375KdV\203\375KcW\203\375Z\204\345bG\357W\204\345Kb@V\204\345KbA@W\203\366\212Kb\210``T|\210\316c\210)\202\234KZ\202\234d\203d\203\234KdW\203\234K\\\202\234]\203i]@K]A]d\203Pc\203PKdV\203PKcW\203P\212Kb\210``T|\210\316c\210)\202\\\203]K\\V\203[\204K[\202\\\203\204[\204\204\212\\b\210``T|\210\316c\210)\311\\[\203\237\\\204\237\212[b\210``T|\210\316c\210)\311[[\203\261_\311j\211K\203\321K@\211j[V\204\303j\\W\203\310K\311\240\210KA\211K\204\257\356\311_\"_*b\311j\211K\203K@\211j[V\204\370j\\W\203\375K\311\240\210KA\211K\204\344\356\311b\"b*^\311j\211K\203;K@\211j[V\204-j\\W\2032K\311\240\210KA\211K\204\356\311^\"^*`\311j\211K\203pK@\211j[V\204bj\\W\203gK\311\240\210KA\211K\204N\356\311`\"`*W\203\213W[TV\203\213[TWS\203\236S[V\203\236\311S\311TQ\203\261Q[V\203\261\311Q\311R`\311j\211K\203\352K@\211j\334V\204\316j\334W\203\341\212jb\210``T|\210\316c\210)K\311\240\210KA\211K\204\274\356\311`\"`*d\203db\210\332\311x\210`Ueb\210\332\311w\210`UW\203`V\202\311UZ\203\251\311_\311^\350c!c\350Z!Zcb\210\360\361!\210b@b\210bA\211b\203y``T|\210\362 ^B^\363c\210cSb\210\212\320	b@Z#\210b@Z|\210)bA\204=`CE\202=Ebcb\210``S|\210\212Zb\210``T|\210\316c\210)\364Z!\210\311Z\364c!c\365\364^\"^b@b\212\nq\210~\210\315 \210\320	!\210d\203\321dTb\210\332\311w\210`c}\210\202\350X\203\344W\203\344XW}\210\202\350dd}\210b\2034^\2034^\311j\211K\203,K@\211jbV\204jeW\203#\212jb\210``T|\210\316c\210)K\311\240\210KA\211K\204\375\356\311^\"^*^\203\201_\203\201_\311j\211K\203yK@\211j^@V\204]jeW\203p\212jb\210``T|\210\316c\210)K\311\240\210KA\211K\204I\356\311_\"_*b\203\322_\203\322^\204\322_\311j\211K\203\312K@\211jbV\204\256jeW\203\301\212jb\210``T|\210\316c\210)K\311\240\210KA\211K\204\233\356\311_\"_*^\203\361b\204\361^@b\210``T|\210`b\366c\210^A^k\203	_\203	\214b\203!l\203!bb\210`^B^\311b``T|\210\363c\210dB\202ql\203,dB\202q^\203\\^\211iA\203CiA\211i\2026i@)B\365\367^\"G\311^\367b!b\202qb\203nbB\367b!b\202qdBeB}\210_@F_\203\361db\210b\204\230_A\204\230`b\360\370!\210\202\242`^B^\360\371!\210\372\334!\210\320p_A@\203\267_A@T\202\270e_@#\210``T|\210\212\321\373\374\217\210\332\311x\210h)\352=\204\350\360\212\332\311x\210h)\352=\203\344\375\202\345\376\377\"\210_A\211_\204\200)G\203	\201y \365\364G\"^\"^\364b!bFTd}\210^\203/	b\204/	^@b\210``T|\210`b\366c\210^A^^\237\211^\203D	^K\201z \201{ \215\210eN^\203R	^@\202X	b\206X	dM)V\203\240	RV=\203\240	QUX\203\240	RTQS}\210\212\214ed}\210eb\210\201| \201} \311\326#\203\234	``S|\210m\204\201	\334u\210\202\201	*\202SV\203\256	VU}\210\202ST\203\346	TTSS}\210\212\214ed}\210eb\210\201| \201} \311\326#\203\337	``S|\210m\204\304	\334u\210\202\304	*eb\210\202Sdb\210``}\210\320\nNM#\210eb\210\324\201~ \311\326#Leb\210k\204\n\201 \201\200 \201\201 \201\202  #\210\332\311w\210m\204A`f\211f\340=\203\221\n`R\321\201\203 \201\204 \217\204;\n\334u\210`\357ZQ\212\372\334!\210``T|\210Rb\210m\204W\n``T|\210)\212\214RQ}\210eb\210\201| \201} \311\326#\203~\n``S|\210m\204c\n\334u\210\202c\n*\316`f=\204\213\n\201\205 c\210\326L\202\nf\352=\203\311\n`Tf\201\206 >\203\260\n\334u\210``T|\210\316c\210\202\nL\203\274\ne`}\210\202\n``T|\210\201\205 c\210\202\nfz\201\207 >\203\340\n``T|\210\201\205 c\210\202\n`P\334v\210`OPb\210\214PO}\210\201\210 m!\203%\365\201\211 nopE\"\210\332\311x\210`d|\210\324q\311\326#\203=\327\201\212 \326\"\210\202eb\210\324\201\213 \311\326#\203:\327\330\326\"\210\202(db\210)\202\nk\204S\201 \201\200 \376\201\202  #\210\314r!\210\201\214 NM\n#\210eb\210eb\210s\203\334A\204\334MNZ\201\215 =\203\334eb\210\201\210 t!\203\334\201\216 \224fJ\201\215 \224fH\212\nq\210\326\201\217 JNf\"\203\275\201\217 HMSf\"\203\275NTfI*I\203\334Iz\201\220 =\203\334\201\215 \224b\210I\226\201\221 \261\210deZ\201\216 \326uv\211w\201\216 V\203B\fwMNZ=\203B\fdb\210\320\nNM#\210u\2032\fvwW\2032\fve\\f\227vw\\e\\f\227=\204*\f\311uvTv\202\few\\d|\210u\203B\f``}\210+eb\210x\203Y\f\324\201\222 \311\326#\204Y\f``}\210edU?\205d\f\201\223  \212\nq\210edU?\205s\f\201\223  )DB@\203\222\fe\203\212\f\334e}\210\202\214\f~\210ed|\210~\210.&\202k )@\203\242\f\237\202\244\f@+\207" [value-list extraction-buffer canonicalization-buffer mail-extr-address-syntax-table case-fold-search address get-buffer-create " *canonical address*" " *extract address components*" nil fundamental-mode buffer-disable-undo set-syntax-table erase-buffer 32 bufferp insert-buffer-substring error "Invalid address: %s" set-text-properties re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ 	]" t replace-match "\\1 " " 	" " 	\n\240" 40 1 41 (byte-code "\300`\301\"\206 `b\210\302\207" [scan-sexps 1 t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) 34 (byte-code "\300`\301\"\206 `b\210\302\207" [scan-sexps 1 t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) 91 (byte-code "\300`\301\"\206 `b\210\302\207" [scan-sexps 1 t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) 44 64 copy-marker ((60 . <-pos) (62 . >-pos) (64 . @-pos) (58 . colon-pos) (44 . comma-pos) (33 . !-pos) (37 . %-pos) (59 . \;-pos)) 46 (41 93 92) 60 62 delq 2 insert-before-markers 88 point-marker "%" mail-extr-demarkerize mapcar "@" mail-extr-markerize "@ " "% " backward-char (byte-code "\300`\301\"\206 `b\207" [scan-sexps -1] 3) ((error (byte-code "A@\301\230\204 \302@A\"\210\202 \303\207" [error "Unbalanced parentheses" signal t] 3))) "" "." "uucp" all disable-initial-guessing-flag insert-point \.-pos domain-pos saved-@-pos saved-!-pos saved-%-pos li mi fi temp \.-ends-name mbox-end mbox-beg atom-end atom-beg quote-end quote-beg cend cbeg phrase-end phrase-beg last-real-pos first-real-pos record-pos-symbol route-addr-:-pos group-\;-pos group-:-pos \;-pos %-pos !-pos comma-pos colon-pos @-pos >-pos <-pos end-of-address char mail-extr-address-comment-syntax-table mail-extr-address-domain-literal-syntax-table list ch mail-extr-mangle-uucp mail-extr-@-binds-tighter-than-! mail-extr-x400-encoded-address-pattern mail-extr-x400-encoded-address-given-name-pattern mail-extr-x400-encoded-address-surname-pattern mail-extr-x400-encoded-address-full-name-pattern mail-extr-bad-dot-pattern mail-extr-address-text-syntax-table mail-extr-guess-middle-initial mail-extr-two-name-pattern names-match-flag i buffer-length mail-extr-ignore-single-names append truncated (byte-code "\203a A@\206 	b\210\306\307x\210\212\310\311\312\217\210`\306\307x\210h\313=)\203Z \314\n`{\f\"\211\2054 \315N)\203Z e`}\210@b\210``T|\210`\307\241\210\316	\"\317c\210\320\321\322\"\210A\211\204 \307\207" [temp @-pos domain-pos \.-pos mail-extr-all-top-level-domains s " 	\n\240" nil error (byte-code "\300`\301\"\206 `b\207" [scan-sexps -1] 3) ((error (byte-code "A@\301\230\204 \302@A\"\210\202 \303\207" [error "Unbalanced parentheses" signal t] 3))) 46 intern-soft domain-name delq "@" throw truncated t %-pos] 4) search-forward "\\" "[_0-9]" modify-syntax-entry 33 "w" syntax-table (byte-code "\300`\301\"\206 `b\210\302\207" [scan-sexps 1 t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) " " (95 61) (46 92) looking-at #[(field-pattern) "\212\301\302\303#)\205 \304p\305\224\305\225#\210\306c\207" [field-pattern re-search-forward nil t insert-buffer-substring 1 " "] 4] "\\1 \\2" "\\([^_=]+\\)[_=]" mail-extr-voodoo 3 0 char-equal 119 ". " "[- ]" buffer-string] 39 (#$ . 7977)])
(defalias 'mail-extr-voodoo #[(mbox-beg mbox-end canonicalization-buffer) "\306\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211=>?@ABCDEF\212\310G!\210eb\210m\204\244 \311\307w\210`H\310I!\210g\312>\203] \313\314\307\315g\316=\203W \317\202X \320$\210\202g \321\322\323\217\204g db\210\310G!\210Hf\324=\203\240 H`|\210\325\307x\210\326\327!\203\212 \330\331!\210\202\240 `H\325\307w\210o\203\235 `H|\210\202\240 \332 \210)\2023 \313\333\307\334#\204\346 eb\210\313\335\307\334#\203\312 eb\210\313\335\307\334#\203\346 \330\333\334\"\210\202\272 \313\336\307\334#\203\346 eb\210\337J\307\334#\203\346 \330\340\334\"\210\202\325 eb\210\204\343\203\371 \f>=\307?\203\306F\307\307=\307D\307C\307?\341\307w\210F\306=\203`d}\210`\307>F\306=\203<\326K!\203<\306\225b\210`d}\210\202\327F\317Y\203\224\326L!\203\224\341\307x\210`Bg\342=\203]\320u\210\202`\342c\210\343g=\204i\343c\210\341\307w\210g\344>\203\211\345\320!\210g\346=\203\203\320u\210\202\215\346c\210\202\215\347\320!\210\334\334\202\327\326\350!\203\250\320\224b\210`d}\210\334?\202\327g\342=\203\307F\320=\203\307\320u\210\334Ag\343=\204\327\343c\210\202\327g\351>\203q`H\310I!\210g\352>\203\366\313\314\307\334\316g=\203\351\317\202\352\320$\204 ``T|\210\202 \321\353\354\217\204 db\210\310G!\210`MF\306=\203-\326\355!\203-MHZ\317Y\203-HTMS}\210eb\210\202\327MHZ\356U\204KMHZ\357U\203ZH\317\\f\346=\203Z\326\355!\204ZHTf@\202]\307@HM|\210@\203\327@\360\261\210\202\327\326N!\203\200\330\331\334\"\210\202\327\326O!\203\220\306\225b\210\334\202\327F\306=\203\251\326P!\203\251\306\225b\210`d}\210\202\327F\317Y\203\303D\203\303\326Q!\203\303\326R!\203\330\326S!\204\330\326T!\204\330\326U!\203\335\334\202\327\326V!\203\355\306\224\306\225|\210\202\327\326W!\203gg\226=\204\376\334C\320u\210g\346=\203\320u\210\202\346c\210\343g=\204\343c\210\334\202\327F\306=\2039\326X!\2039\320\224\320\225}\210\334\334\202\327F\306V\203nh\343=\203ng\361=\203n`Td=\203n``T|\210\362`\363YZ[#\210`\"\210\334\\\334\202\327F\306V\203\210g\361=\203\210`\211T\334	b\210\202\327\326]!\203\325`\306\225F\317Y\203\261C\204\261\326\364!\204\256\346	Sf=\203\261\334>\337\365	\334#\203\315\nb\210\337\366	\334#\203\312\334D\202\315\334C	b\210\334\202\327\334\203\351 FTF\202\351 B\204\364\326\367!\203\364d\211Bb\210e=\203\376\206\377`}\210B\204eb\210\334E\326\370!\203\371 \210)A\203Geb\210\313\372!\210`SB\206+db\210\343h=\2046\343c\210\363pe	#\210	b\210\373\307w\210`d}\210eb\210\337\374\307\334#\205b\330m\203[\331\202\\\333\334\"\210\202J.\207" [name-done-flag name-end name-beg last-word-beg this-word-beg word-found-flag 0 nil set-syntax-table "^({[\"'`" (39 96) search-forward "'" move 39 2 1 error (byte-code "\300`\301\"\206 `b\210\302\207" [scan-sexps 1 t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) 40 " 	" looking-at "\\([ 	]+$\\|[ 	]+,\\)" replace-match "" just-one-space " " t "_" "." re-search-forward "\\1 \\2" " 	\n\240" 44 32 (106 74 115 83) capitalize-word 46 upcase-word "MKA \\(.+\\)" (40 123 91 34 39 96) (39 96) (byte-code "\300`\301\"\206 `b\210\302\207" [scan-sexps 1 t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) " *\\'" 3 4 ". " 38 capitalize-region insert-buffer-substring "[a-z][a-z][a-z][a-z]+[ 	]*\\'" "[a-z]" "[A-Z]" "\\(\\.+\\|[?!;:.][?!;:.]+\\|[?!;:][?!;:.]*\\)\\'" "[-A-Za-z_]+[. ]\\(PARC\\|ADOC\\)\\'" erase-buffer "," "	 ," "[ 	\n]+" drop-last-word-if-trailing-flag drop-this-word-if-trailing-flag begin-again-flag initial last-name-comma-flag suffix-flag lower-case-flag mixed-case-flag case-fold-search word-count mail-extr-address-text-syntax-table cbeg mail-extr-address-text-comment-syntax-table mail-extr-bad-dot-pattern mail-extr-full-name-prefixes mail-extr-full-name-suffix-pattern cend mail-extr-stupid-vms-date-stamp-pattern mail-extr-hz-embedded-gb-encoded-chinese-pattern mail-extr-leading-garbage mail-extr-weird-acronym-pattern mail-extr-roman-numeral-pattern mail-extr-alternative-address-pattern mail-extr-trailing-comment-start-pattern mail-extr-telephone-extension-pattern mail-extr-ham-call-sign-pattern mail-extr-initial-pattern mail-extr-listserv-list-name-pattern canonicalization-buffer mbox-beg mbox-end disable-initial-guessing-flag mail-extr-name-pattern] 17])
(byte-code "\303\304\305\"\306\307\310\"\210)\301\nB\303\207" [ob mail-extr-all-top-level-domains current-load-list make-vector 509 0 mapcar #[(x) "\302\303@\227	\"\304\3058\203 \306\3058A@\"\202 A@#\207" [x ob put intern domain-name 2 format] 6] (("ad" "Andorra") ("ae" "United Arab Emirates") ("ag" "Antigua and Barbuda") ("al" "Albania") ("am" "Armenia") ("ao" "Angola") ("aq" "Antarctica") ("ar" "Argentina" "Argentine Republic") ("at" "Austria" "The Republic of %s") ("au" "Australia") ("az" "Azerbaijan") ("ba" "Bosnia-Herzegovina") ("bb" "Barbados") ("bd" "Bangladesh") ("be" "Belgium" "The Kingdom of %s") ("bf" "Burkina Faso") ("bg" "Bulgaria") ("bh" "Bahrain") ("bm" "Bermuda") ("bo" "Bolivia" "Republic of %s") ("br" "Brazil" "The Federative Republic of %s") ("bs" "Bahamas") ("bw" "Botswana") ("by" "Belarus") ("bz" "Belize") ("ca" "Canada") ("cg" "Congo") ("ch" "Switzerland" "The Swiss Confederation") ("ci" "Ivory Coast") ("cl" "Chile" "The Republic of %s") ("cm" "Cameroon") ("cn" "China" "The People's Republic of %s") ("co" "Colombia") ("cr" "Costa Rica" "The Republic of %s") ("cs" "Czechoslovakia") ("cu" "Cuba") ("cy" "Cyprus") ("cz" "Czech Republic") ("de" "Germany") ("dk" "Denmark") ("dm" "Dominica") ("do" "Dominican Republic" "The %s") ("dz" "Algeria") ("ec" "Ecuador" "The Republic of %s") ("ee" "Estonia") ("eg" "Egypt" "The Arab Republic of %s") ("er" "Eritrea") ("es" "Spain" "The Kingdom of %s") ("et" "Ethiopia") ("fi" "Finland" "The Republic of %s") ("fo" "Faroe Islands") ("fr" "France") ("ga" "Gabon") ("gb" "United Kingdom") ("gd" "Grenada") ("ge" "Georgia") ("gf" "Guyana (Fr.)") ("gj" "Fiji") ("gl" "Greenland") ("gm" "Gambia") ("gp" "Guadeloupe (Fr.)") ("gr" "Greece" "The Hellenic Republic (%s)") ("gt" "Guatemala") ("gu" "Guam (U.S.)") ("hk" "Hong Kong") ("hn" "Honduras") ("hr" "Croatia" "Croatia (Hrvatska)") ("ht" "Haiti") ("hu" "Hungary" "The Hungarian Republic") ("id" "Indonesia") ("ie" "Ireland") ("il" "Israel" "The State of %s") ("im" "Isle of Man" "The %s") ("in" "India" "The Republic of %s") ("ir" "Iran") ("is" "Iceland" "The Republic of %s") ("it" "Italy" "The Italian Republic") ("jm" "Jamaica") ("jo" "Jordan") ("jp" "Japan") ("ke" "Kenya") ("kn" "St. Kitts, Nevis, and Anguilla") ("kp" "Korea (North)") ("kr" "Korea (South)") ("kw" "Kuwait") ("kz" "Kazakhstan") ("lb" "Lebanon") ("lc" "St. Lucia") ("li" "Liechtenstein") ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") ("ls" "Lesotho") ("lt" "Lithuania") ("lu" "Luxembourg") ("lv" "Latvia") ("ma" "Morocco") ("mc" "Monaco") ("md" "Moldova" "The Republic of %s") ("mg" "Madagascar") ("mk" "Macedonia") ("ml" "Mali") ("mo" "Macau") ("mt" "Malta") ("mu" "Mauritius") ("mv" "Maldives") ("mw" "Malawi") ("mx" "Mexico" "The United Mexican States") ("my" "Malaysia" "%s (changed to Myanmar?)") ("mz" "Mozambique") ("na" "Namibia") ("nc" "New Caledonia (Fr.)") ("ne" "Niger") ("ni" "Nicaragua" "The Republic of %s") ("nl" "Netherlands" "The Kingdom of the %s") ("no" "Norway" "The Kingdom of %s") ("np" "Nepal") ("nu" "Niue") ("nz" "New Zealand") ("pa" "Panama") ("pe" "Peru") ("pf" "Polynesia (Fr.)") ("pg" "Papua New Guinea") ("ph" "Philippines" "The Republic of the %s") ("pk" "Pakistan") ("pl" "Poland") ("pr" "Puerto Rico (U.S.)") ("pt" "Portugal" "The Portuguese Republic") ("py" "Paraguay") ("qa" "Qatar") ("re" "Reunion (Fr.)") ("ro" "Romania") ("ru" "Russian Federation") ("sa" "Saudi Arabia") ("sc" "Seychelles") ("sd" "Sudan") ("se" "Sweden" "The Kingdom of %s") ("sg" "Singapore" "The Republic of %s") ("si" "Slovenia") ("sj" "Svalbard and Jan Mayen Is.") ("sk" "Slovakia" "The Slovak Republic") ("sm" "San Marino") ("sn" "Senegal") ("sr" "Suriname") ("su" "U.S.S.R." "The Union of Soviet Socialist Republics") ("sz" "Swaziland") ("tg" "Togo") ("th" "Thailand" "The Kingdom of %s") ("tm" "Turkmenistan") ("tn" "Tunisia") ("to" "Tonga") ("tr" "Turkey" "The Republic of %s") ("tt" "Trinidad and Tobago") ("tw" "Taiwan") ("ua" "Ukraine") ("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland") ("us" "United States" "The %s of America") ("uy" "Uruguay" "The Eastern Republic of %s") ("vc" "St. Vincent and the Grenadines") ("ve" "Venezuela" "The Republic of %s") ("vi" "Virgin Islands (U.S.)") ("vn" "Vietnam") ("vu" "Vanuatu") ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro") ("za" "South Africa" "The Republic of %s") ("zw" "Zimbabwe" "Republic of %s") ("arpa" t "Advanced Research Projects Agency (U.S. DoD)") ("bitnet" t "Because It's Time NET") ("com" t "Commercial") ("edu" t "Educational") ("gov" t "Government (U.S.)") ("int" t "International (NATO)") ("mil" t "Military (U.S.)") ("nato" t "North Atlantic Treaty Organization") ("net" t "Network") ("org" t "Non-profit Organization") ("uucp" t "Unix to Unix CoPy"))] 3)
#@62 Convert mail domain DOMAIN to the country it corresponds to.
(defalias 'what-domain #[(domain) "\302\227	\"\211\204 \303\304!\210\305\306\307!\226\310N#\207" [domain mail-extr-all-top-level-domains intern-soft error "No such domain" message "%s: %s" symbol-name domain-name] 5 (#$ . 28047) (let ((completion-ignore-case t)) (list (completing-read "Domain: " mail-extr-all-top-level-domains nil t)))])
(provide 'mail-extr)