;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:29 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/mail-extr.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(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 '(#$ . -756) :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 '(#$ . -1059) :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]") '(#$ . -1362) :type 'regexp :group 'mail-extr)
#@62 *Whether the local mail transport agent looks at ! before @.
(custom-declare-variable 'mail-extr-@-binds-tighter-than-! 'nil '(#$ . -1724) :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 '(#$ . -1904) :type 'boolean :group 'mail-extr)
(byte-code "\301B\306\307!\302B\306	\310P!\303B\306\311!\304B\306\312!\305B\306\313\314\"!\315B\306\313\316\n\f$!\317B\306\313\320\n\211#!\321B\306\322!\323B\306\324!\325B\306\326!\327B\306\330!\331B\306\313\332\n\f$!\333B\306\313\334\"!\335B\306\336!\337B\306\340!\341B\306\313\342	\f$!!\343B\306\344!\345\346\347\260!#\350B\306\351!(\352B\306\353!*\354B\306\355!,\356B\306\357!.\360B\306\361!0\362B\306\3130\363\"!2\364B\306\3130\365\"!4\366B\306\3130\367\"!6\370B\371 8\372B\371 :\373B\371 ;\374B\371 <\375B\371 =\376\377\201@ \"\207" [current-load-list mail-extr-all-letters-but-separators mail-extr-all-letters mail-extr-first-letters mail-extr-last-letters mail-extr-leading-garbage purecopy "][[:alnum:]{|}'~`" "---" "[:alpha:]" "[:alpha:]`'." format "[^%s]+" mail-extr-bad-dot-pattern "\\([%s][%s]\\)\\.+\\([%s]\\)" mail-extr-full-name-suffix-pattern "\\(,? ?\\([JjSs][Rr]\\.?\\|V?I+V?\\)\\)\\([^%s]\\([^%s]\\|\\'\\)\\|\\'\\)" mail-extr-roman-numeral-pattern "V?I+V?\\b" mail-extr-weird-acronym-pattern "\\([A-Z]+[-_/]\\|[A-Z][A-Z][A-Z]?\\b\\)" mail-extr-alternative-address-pattern "\\(aka *\\)?[a-zA-Z.]+[!@][a-zA-Z.]" mail-extr-trailing-comment-start-pattern " [-{]\\|--\\|[+@#></;]" mail-extr-name-pattern "\\b[%s][%s]*[%s]" mail-extr-initial-pattern "\\b[%s]\\([. ]\\|\\b\\)" mail-extr-telephone-extension-pattern "\\(\\([Ee]xt\\|\\|[Tt]ph\\|[Tt]el\\|[Xx]\\).?\\)? *\\+?[0-9][- 0-9]+" mail-extr-ham-call-sign-pattern "\\b\\(DX[0-9]+\\|[AKNW][A-Z]?[0-9][A-Z][A-Z]?[A-Z]?\\)" mail-extr-normal-name-pattern "\\b[%s][%s]+[%s]" mail-extr-two-name-pattern "\\`\\(" "\\|" "\\) +\\(" "\\)\\(,\\|\\'\\)" mail-extr-listserv-list-name-pattern "Multiple recipients of list \\([-A-Z]+\\)" mail-extr-stupid-vms-date-stamp-pattern "[0-9][0-9]-[JFMASOND][aepuco][nbrylgptvc]-[0-9][0-9][0-9][0-9] [0-9]+ *" mail-extr-hz-embedded-gb-encoded-chinese-pattern "~{\\([^~].\\|~[^}]\\)+~}" mail-extr-x400-encoded-address-pattern "[a-z]?[a-z]?\\(/[A-Za-z]+\\(\\.[A-Za-z]+\\)?=[^/]+\\)+/?\\'" mail-extr-x400-encoded-address-field-pattern-format "/%s=\\([^/]+\\)\\(/\\|\\'\\)" mail-extr-x400-encoded-address-surname-pattern "[Ss]" mail-extr-x400-encoded-address-given-name-pattern "[Gg]" mail-extr-x400-encoded-address-full-name-pattern "[Pp][Nn]" mail-extr-address-syntax-table make-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 #[(n) "``\\|\207" [n] 3])
(put 'mail-extr-delete-char 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mail-extr-skip-whitespace-forward #[nil "\300\301w\207" [" 	\n\240" nil] 2])
(put 'mail-extr-skip-whitespace-forward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mail-extr-skip-whitespace-backward #[nil "\300\301x\207" [" 	\n\240" nil] 2])
(put 'mail-extr-skip-whitespace-backward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mail-extr-undo-backslash-quoting #[(beg end) "\212\214	}\210eb\210\303\304\305\306#\205$ \307``\n\\|\210)m\204	 \310u\210\202	 *\207" [beg end n search-forward "\\" nil t -1 1] 4])
(put 'mail-extr-undo-backslash-quoting 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mail-extr-nuke-char-at #[(pos) "\212b\210\302``	\\|\210)\303c)\207" [pos n 1 32] 3])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [put mail-extr-nuke-char-at byte-optimizer byte-compile-inline-expand mail-extr-nuke-outside-range edebug-form-spec (symbolp &optional form form atom)] 4)
(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-safe-move-sexp #[(arg) "\300\301\302\217\207" [error (byte-code "\301`\"\206 `b\210\302\207" [arg scan-sexps t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3)))] 3])
(byte-code "\301\302\303\304#\210\305B\306B\307B\301\207" [current-load-list put mail-extr-safe-move-sexp byte-optimizer byte-compile-inline-expand disable-initial-guessing-flag cbeg cend] 4)
#@733 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r\306	!q\210\312 \210\313	!\210\314!\210~\210\315 \210\311\316c\210;\2030 c\210\202B \317!\203= \320!\210\202B \321\322\"\210\323ed\311#\210r\306\n!q\210\312 \210\313\n!\210\311)eb\210\324\325\311\326#\203k \327\330\326\"\210\202[ @\204t \204teb\210\331\311w\210m\204t\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f\314!\210eb\210g\316=\204\316c\210\332\311w\210m\204S`ffX\204f\333=\204`Xf\333=\203]\314g!\210T\204@\212\334u\210\332\311w\210`f)\335=\204@`T\336\334!\204I\334u\210\314!\210T\203;S\204;`S\202;f\337=\203\225R\204|\212\334u\210\332\311w\210`f)\337=\204|`R\336\334!\204\205\334u\210R\203;Q\204;`Q\202;f\340=\203\261\314h!\210\336\334!\204\252\334u\210\314!\210\202;f\341=\203\354d\204\305`Tf\342=\203\326c\203\354\343d!@c@W\203\354\344`T\326\"ee`T}\210\345\334!\210\333f\202;f\346\236A\211Y\203Y`YJBL\210\334u\210\202;f\347=\203\334u\210\202;f\350>\2038`i\212ib\210\334j``j\\|\210)\316c)\210)\334u\210\202;\334v\210f\333=\204f\341=\203Mm\204`W\202dA\203|d@i\212ib\210\334j``j\\|\210)\316c)\210)dA\211d\202UcA\203\247cA@i\212ib\210\334j``j\\|\210)\316c)\210)c\211AA\241\210\202|bG\334V\203\326aG\334=\203\326]\204\326d\204\326eb\210\334j``j\\|\210)`Cd\351c\210d\203\352c\204\352db\210`Cc\352c\210c\203d\204c@i\212ib\210\334j``j\\|\210)\316c)\210)\311cc@cd@\211d\203\276b\311k\211K\203LK@\211kcV\204>kdW\203CK\311\240\210KA\211K\204*\353\311b\"b*_\311k\211K\203\201K@\211kcV\204skdW\203xK\311\240\210KA\211K\204_\353\311_\"_*^\311k\211K\203\266K@\211kcV\204\250kdW\203\255K\311\240\210KA\211K\204\224\353\311^\"^*a\203Ca@KaAad\203*c\203*KdV\203*KcW\203*Z\204bG\354W\204Kb@V\204KbA@W\203#Ki\212ib\210\334j``j\\|\210)\316c)\210)\202\276KZ\202\276d\203<d\203\276KdW\203\276K\\\202\276]\203\241]@K]A]d\203\210c\203\210KdV\203\210KcW\203\210Ki\212ib\210\334j``j\\|\210)\316c)\210)\202C\\\203\225K\\V\203C[\204CK[\202C\\\203\307[\204\307\\i\212ib\210\334j``j\\|\210)\316c)\210)\311\\[\203\355\\\204\355[i\212ib\210\334j``j\\|\210)\316c)\210)\311[[\203\377_\311k\211K\203K@\211k[V\204k\\W\203K\311\240\210KA\211K\204\375\353\311_\"_*b\311k\211K\203TK@\211k[V\204Fk\\W\203KK\311\240\210KA\211K\2042\353\311b\"b*^\311k\211K\203\211K@\211k[V\204{k\\W\203\200K\311\240\210KA\211K\204g\353\311^\"^*`\311k\211K\203\276K@\211k[V\204\260k\\W\203\265K\311\240\210KA\211K\204\234\353\311`\"`*W\203\331W[TV\203\331[TWS\203\354S[V\203\354\311S\311TQ\203\377Q[V\203\377\311Q\311R`\311k\211K\203CK@\211k\334V\204k\334W\203:ki\212ib\210\334j``j\\|\210)\316c)\210)K\311\240\210KA\211K\204\n\353\311`\"`*d\203rdb\210\332\311x\210`Ueb\210\332\311w\210`UW\203o`V\202r\311UZ\203\311_\311^\344c!c\344Z!Zcb\210\355\356!\210b@b\210bA\211b\203\330\334j``j\\|\210)\357 ^B^\360c\210cSb\210\212\320	b@Z#\210b@Z|\210)bA\204\226`CE\202\226Ebcb\210\361j``j\\|\210)Zi\212ib\210\334j``j\\|\210)\316c)\210)\362Z!\210\311Z\362c!c\363\362^\"^b@b\212\nq\210~\210\315 \210\320	!\210d\203AdTb\210\332\311w\210`c}\210\202XX\203TW\203TXW}\210\202Xdd}\210b\203\257^\203\257^\311k\211K\203\247K@\211kbV\204\200keW\203\236ki\212ib\210\334j``j\\|\210)\316c)\210)K\311\240\210KA\211K\204m\353\311^\"^*^\203_\203_\311k\211K\203\377K@\211k^@V\204\330keW\203\366ki\212ib\210\334j``j\\|\210)\316c)\210)K\311\240\210KA\211K\204\304\353\311_\"_*b\203c_\203c^\204c_\311k\211K\203[K@\211kbV\2044keW\203Rki\212ib\210\334j``j\\|\210)\316c)\210)K\311\240\210KA\211K\204!\353\311_\"_*^\203\210b\204\210^@b\210\334j``j\\|\210)`b\364c\210^A^l\203\243	_\203\243	\214b\203\276m\203\276bb\210`^B^\311b\334j``j\\|\210)\360c\210dB\202\375m\203\311dB\202\375^\203\350\343^!@B\363\365^\"G\311^\365b!b\202\375b\203\372bB\365b!b\202\375dBeB}\210_@F_\203\206	db\210b\204$	_A\204$	`b\355\366!\210\202.	`^B^\355\367!\210\361u\210\320p_A@\203B	_A@T\202C	e_@#\210\334j``j\\|\210)\212\361n\321\370\371\217\210)\332\311x\210h)\347=\204}	\355\212\332\311x\210h)\347=\203y	\372\202z	\373\374\"\210_A\211_\204\f	)G\203\227	\375\363\362G\"^\"^\362b!bFTd}\210^\203\310	b\204\310	^@b\210\334j``j\\|\210)`b\364c\210^A^^\237\211^\203\331	^K\376\377\215\210eN^\203\347	^@\202\355	b\206\355	dM)V\203E\nRV=\203E\nQUX\203E\nRTQS}\210edop\212\214po}\210eb\210\201} \201~ \311\326#\205?\n\361j``j\\|\210)m\204\n\334u\210\202\n*\210*\2020\fV\203S\nVU}\210\2020\fT\203\233\nTTSS}\210edop\212\214po}\210eb\210\201} \201~ \311\326#\205\222\n\361j``j\\|\210)m\204q\n\334u\210\202q\n*\210*eb\210\2020\fdb\210``}\210\320\nNM#\210eb\210\324\201 \311\326#Leb\210l\204\315\n\201\200 \201\201 \201\202 \201\203  #\210\332\311w\210m\204\f`f\211f\337=\203\\`R\336\334!\204\353\n\334u\210`\354ZQ\212\361u\210\334j``j\\|\210)Rb\210m\204\334j``j\\|\210))RQop\212\214po}\210eb\210\201} \201~ \311\326#\205G\361j``j\\|\210)m\204&\334u\210\202&*\210*\316`f=\204V\201\204 c\210\326L\202\315\nf\347=\203\240`Tf\201\205 >\203\201\334u\210\334j``j\\|\210)\316c\210\202\315\nL\203\215e`}\210\202\315\n\334j``j\\|\210)\201\204 c\210\202\315\nfz\201\206 >\203\275\334j``j\\|\210)\201\204 c\210\202\315\n`P\334v\210`OPb\210\214PO}\210\201\207 q!\203\f\363\201\210 rstE\"\210\332\311x\210`d|\210\324u\311\326#\203\f\327\201\211 \326\"\210\202\357eb\210\324\201\212 \311\326#\203\f\327\330\326\"\210\202\fdb\210)\202\315\nl\2040\f\201\200 \201\201 \373\201\203  #\210\314v!\210\201\213 NM\n#\210eb\210eb\210w\203\271\fA\204\271\fMNZ\201\214 =\203\271\feb\210\201\207 x!\203\271\f\201\215 \224fJ\201\214 \224fH\212\nq\210\326\201\216 JNf\"\203\232\f\201\216 HMSf\"\203\232\fNTfI*I\203\271\fIz\201\217 =\203\271\f\201\214 \224b\210I\226\201\220 \261\210deZ\201\215 \326yz\211{\201\215 V\203{MNZ=\203db\210\320\nNM#\210y\203z{W\203ze\\f\227z{\\e\\f\227=\204\311yzTz\202\344\fe{\\d|\210y\203``}\210+eb\210|\2036\324\201\221 \311\326#\2046``}\210edU?\205A\201\222  \212\nq\210edU?\205P\201\222  )DB@\203oe\203g\334e}\210\202i~\210ed|\210~\210.&\202k )@\203\237\202\201@+\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 mail-extr-safe-move-sexp 34 91 44 64 last copy-marker delete-char ((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 "%" -1 mail-extr-demarkerize mapcar "@" mail-extr-markerize "@ " "% " (byte-code "\301`\"\206 `b\210\302\207" [arg scan-sexps t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) "" "." "uucp" append truncated (byte-code "\203l A@\206 	b\210\306\307x\210\212\310\311\312\313\217\210)`\306\307x\210h\314=)\f\203e \315`{\"\211\2059 \316N)\203e e`}\210@b\210\317``\\|\210)`\307\241\210\320	\"\321c\210\322\323\324\"\210A\211\204 \307\207" [temp @-pos arg domain-pos \.-pos mail-extr-all-top-level-domains " 	\n\240" nil -1 error (byte-code "\301`\"\206 `b\210\302\207" [arg scan-sexps t] 3) ((error (byte-code "A@\301\230?\205 \302@A\"\210\202	 \207" [error "Unbalanced parentheses" signal] 3))) 46 intern-soft domain-name 1 delq "@" throw truncated t s n %-pos] 4) 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 pos n ch mail-extr-mangle-uucp mail-extr-@-binds-tighter-than-! arg end beg 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 search-forward "\\" "[_0-9]" modify-syntax-entry 33 "w" syntax-table " " (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 (#$ . 8133)])
(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9:;<=>?@AB\212\310C!\210eb\210m\204\243 \311\307w\210`D\310E!\210g\312>\203] \313\314\307\315g\316=\203W \317\202X \320$\210\202f \321\320!\204f db\210\310C!\210Df\322=\203\237 D`|\210\323\307x\210\324\325!\203\211 \326\327!\210\202\237 `D\323\307w\210o\203\234 `D|\210\202\237 \330 \210)\2023 \313\331\307\332#\204\345 eb\210\313\333\307\332#\203\311 eb\210\313\333\307\332#\203\345 \326\331\332\"\210\202\271 \313\334\307\332#\203\345 eb\210\335F\307\332#\203\345 \326\336\332\"\210\202\324 eb\210\204\355\203\370 \f:9\307;\203\306B\307\3079\307@\307?\307;\337\307w\210B\306=\203`d}\210`\307:B\306=\203;\324G!\203;\306\225b\210`d}\210\202\341B\317Y\203\223\324H!\203\223\337\307x\210`>g\340=\203\\\320u\210\202_\340c\210\341g=\204h\341c\210\337\307w\210g\342>\203\210\343\320!\210g\344=\203\202\320u\210\202\214\344c\210\202\214\345\320!\210\332\332\202\341\324\346!\203\247\320\224b\210`d}\210\332;\202\341g\340=\203\306B\320=\203\306\320u\210\332=g\341=\204\341\341c\210\202\341g\347>\203u`D\310E!\210g\350>\203\373\313\314\307\332\316g=\203\350\317\202\351\320$\204\320I``I\\|\210)\202\321\320!\204db\210\310C!\210`JB\306=\2031\324\351!\2031JDZ\317Y\2031DTJS}\210eb\210\202\341JDZ\352U\204OJDZ\353U\203^D\317\\f\344=\203^\324\351!\204^DTf<\202a\307<DJ|\210<\203\341<\354\261\210\202\341\324K!\203\204\326\327\332\"\210\202\341\324L!\203\224\306\225b\210\332\202\341B\306=\203\255\324M!\203\255\306\225b\210`d}\210\202\341B\317Y\203\307@\203\307\324N!\203\307\324O!\203\334\324P!\204\334\324Q!\204\334\324R!\203\341\332\202\341\324S!\203\361\306\224\306\225|\210\202\341\324T!\203\"gg\226=\204\332?\320u\210g\344=\203\320u\210\202\344c\210\341g=\204\341c\210\332\202\341B\306=\203=\324U!\203=\320\224\320\225}\210\332\332\202\341B\306V\203xh\341=\203xg\355=\203x`Td=\203x\320I``I\\|\210)\356`\357VWX#\210`\"\210\332Y\332\202\341B\306V\203\222g\355=\203\222`\211T\332	b\210\202\341\324Z!\203\337`\306\225B\317Y\203\273?\204\273\324\360!\204\270\344	Sf=\203\273\332:\335\361	\332#\203\327\nb\210\335\362	\332#\203\324\332@\202\327\332?	b\210\332\202\341\332\203\350 BTB\202\350 >\204\376\324\363!\203\376d\211>b\210e9\203\206	`}\210>\204 eb\210\332A\324\364!\203\365 \210)=\203Qeb\210\313\366!\210`S>\2065db\210\341h=\204@\341c\210\357pe	#\210	b\210\367\307w\210`d}\210eb\210\335\370\307\332#\205l\326m\203e\327\202f\331\332\"\210\202T.\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 mail-extr-safe-move-sexp 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) " *\\'" 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 n 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 "\302B\303\304\305\"\306\307\310\"\210	)\302\207" [current-load-list ob mail-extr-all-top-level-domains make-vector 739 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") ("af" "Afghanistan") ("ag" "Antigua and Barbuda") ("ai" "Anguilla") ("al" "Albania") ("am" "Armenia") ("an" "Netherlands Antilles") ("ao" "Angola") ("aq" "Antarctica") ("ar" "Argentina" "Argentine Republic") ("as" "American Samoa") ("at" "Austria" "The Republic of %s") ("au" "Australia") ("aw" "Aruba") ("az" "Azerbaijan") ("ba" "Bosnia-Herzegovina") ("bb" "Barbados") ("bd" "Bangladesh") ("be" "Belgium" "The Kingdom of %s") ("bf" "Burkina Faso") ("bg" "Bulgaria") ("bh" "Bahrain") ("bi" "Burundi") ("bj" "Benin") ("bm" "Bermuda") ("bn" "Brunei Darussalam") ("bo" "Bolivia" "Republic of %s") ("br" "Brazil" "The Federative Republic of %s") ("bs" "Bahamas") ("bt" "Bhutan") ("bv" "Bouvet Island") ("bw" "Botswana") ("by" "Belarus") ("bz" "Belize") ("ca" "Canada") ("cc" "Cocos (Keeling) Islands") ("cd" "The Democratic Republic of The Congo") ("cf" "Central African Republic") ("cg" "Congo") ("ch" "Switzerland" "The Swiss Confederation") ("ci" "Ivory Coast") ("ck" "Cook Islands") ("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") ("cu" "Cuba") ("cv" "Cape Verde") ("cx" "Christmas Island") ("cy" "Cyprus") ("cz" "Czech Republic") ("de" "Germany") ("dj" "Djibouti") ("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") ("eh" "Western Sahara") ("er" "Eritrea") ("es" "Spain" "The Kingdom of %s") ("et" "Ethiopia") ("fi" "Finland" "The Republic of %s") ("fj" "Fiji") ("fk" "Falkland Islands (Malvinas)") ("fm" "Micronesia" "Federated States of %s") ("fo" "Faroe Islands") ("fr" "France") ("ga" "Gabon") ("gb" "United Kingdom") ("gd" "Grenada") ("ge" "Georgia") ("gf" "French Guiana") ("gh" "Ghana") ("gi" "Gibraltar") ("gl" "Greenland") ("gm" "Gambia") ("gn" "Guinea") ("gp" "Guadeloupe (Fr.)") ("gq" "Equatorial Guinea") ("gr" "Greece" "The Hellenic Republic (%s)") ("gs" "South Georgia And The South Sandwich Islands") ("gt" "Guatemala") ("gu" "Guam (U.S.)") ("gw" "Guinea-Bissau") ("gy" "Guyana") ("hk" "Hong Kong") ("hm" "Heard Island And Mcdonald Islands") ("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") ("io" "British Indian Ocean Territory") ("iq" "Iraq") ("ir" "Iran" "Islamic Republic of %s") ("is" "Iceland" "The Republic of %s") ("it" "Italy" "The Italian Republic") ("jm" "Jamaica") ("jo" "Jordan") ("jp" "Japan") ("ke" "Kenya") ("kg" "Kyrgyzstan") ("kh" "Cambodia") ("ki" "Kiribati") ("km" "Comoros") ("kn" "Saint Kitts and Nevis") ("kp" "Korea (North)" "Democratic People's Republic of Korea") ("kr" "Korea (South)" "Republic of Korea") ("kw" "Kuwait") ("ky" "Cayman Islands") ("kz" "Kazakstan") ("la" "Lao People's Democratic Republic") ("lb" "Lebanon") ("lc" "Saint Lucia") ("li" "Liechtenstein") ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") ("lr" "Liberia") ("ls" "Lesotho") ("lt" "Lithuania") ("lu" "Luxembourg") ("lv" "Latvia") ("ly" "Libyan Arab Jamahiriya") ("ma" "Morocco") ("mc" "Monaco") ("md" "Moldova" "The Republic of %s") ("mg" "Madagascar") ("mh" "Marshall Islands") ("mk" "Macedonia" "The Former Yugoslav Republic of %s") ("ml" "Mali") ("mm" "Myanmar") ("mn" "Mongolia") ("mo" "Macau") ("mp" "Northern Mariana Islands") ("mq" "Martinique") ("mr" "Mauritania") ("ms" "Montserrat") ("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") ("nf" "Norfolk Island") ("ng" "Nigeria") ("ni" "Nicaragua" "The Republic of %s") ("nl" "Netherlands" "The Kingdom of the %s") ("no" "Norway" "The Kingdom of %s") ("np" "Nepal") ("nr" "Nauru") ("nu" "Niue") ("nz" "New Zealand") ("om" "Oman") ("pa" "Panama") ("pe" "Peru") ("pf" "Polynesia (Fr.)") ("pg" "Papua New Guinea") ("ph" "Philippines" "The Republic of the %s") ("pk" "Pakistan") ("pl" "Poland") ("pm" "Saint Pierre and Miquelon") ("pn" "Pitcairn") ("pr" "Puerto Rico (U.S.)") ("ps" "Palestinian Territory, Occupied") ("pt" "Portugal" "The Portuguese Republic") ("pw" "Palau") ("py" "Paraguay") ("qa" "Qatar") ("re" "Reunion (Fr.)") ("ro" "Romania") ("ru" "Russia" "Russian Federation") ("rw" "Rwanda") ("sa" "Saudi Arabia") ("sb" "Solomon Islands") ("sc" "Seychelles") ("sd" "Sudan") ("se" "Sweden" "The Kingdom of %s") ("sg" "Singapore" "The Republic of %s") ("sh" "Saint Helena") ("si" "Slovenia") ("sj" "Svalbard and Jan Mayen") ("sk" "Slovakia" "The Slovak Republic") ("sl" "Sierra Leone") ("sm" "San Marino") ("sn" "Senegal") ("so" "Somalia") ("sr" "Suriname") ("st" "Sao Tome And Principe") ("su" "U.S.S.R." "The Union of Soviet Socialist Republics") ("sv" "El Salvador") ("sy" "Syrian Arab Republic") ("sz" "Swaziland") ("tc" "Turks And Caicos Islands") ("td" "Chad") ("tf" "French Southern Territories") ("tg" "Togo") ("th" "Thailand" "The Kingdom of %s") ("tj" "Tajikistan") ("tk" "Tokelau") ("tm" "Turkmenistan") ("tn" "Tunisia") ("to" "Tonga") ("tp" "East Timor") ("tr" "Turkey" "The Republic of %s") ("tt" "Trinidad and Tobago") ("tv" "Tuvalu") ("tw" "Taiwan" "%s, Province of China") ("tz" "Tanzania" "United Republic of %s") ("ua" "Ukraine") ("ug" "Uganda") ("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland") ("um" "United States Minor Outlying Islands") ("us" "United States" "The %s of America") ("uy" "Uruguay" "The Eastern Republic of %s") ("uz" "Uzbekistan") ("va" "Holy See (Vatican City State)") ("vc" "St. Vincent and the Grenadines") ("ve" "Venezuela" "The Republic of %s") ("vg" "Virgin Islands, British") ("vi" "Virgin Islands, U.S.") ("vn" "Vietnam") ("vu" "Vanuatu") ("wf" "Wallis and Futuna") ("ws" "Samoa") ("ye" "Yemen") ("yt" "Mayotte") ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro") ("za" "South Africa" "The Republic of %s") ("zm" "Zambia") ("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 (#$ . 29568) (let ((completion-ignore-case t)) (list (completing-read "Domain: " mail-extr-all-top-level-domains nil t)))])
(provide 'mail-extr)