;ELC ;;; compiled by amu@mit.edu on Fri May 16 19:37:00 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/mail-extr.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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")) #@188 *Whether to try to guess middle initial from mail address. If true, then when we see an address like "John Smith " we will assume that "John Q. Smith" is the fellow's name. (defvar mail-extr-guess-middle-initial nil (#$ . -490)) #@190 *Whether to ignore a name that is just a single word. If true, then when we see an address like "Idiot " we will act as though we couldn't find a full name in the address. (defvar mail-extr-ignore-single-names t (#$ . -740)) #@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. (defvar mail-extr-full-name-prefixes (purecopy "\\(Prof\\|D[Rr]\\|Mrs?\\|Rev\\|Rabbi\\|SysOp\\|LCDR\\)\\.?[ \n]") (#$ . -989)) #@62 *Whether the local mail transport agent looks at ! before @. (defvar mail-extr-@-binds-tighter-than-! nil (#$ . -1298)) #@121 *Whether to throw away information in UUCP addresses by translating things like "foo!bar!baz@host" into "baz@bar.UUCP". (defvar mail-extr-mangle-uucp nil (#$ . -1425)) (byte-code "! B\nP! B! B! B\"!\f B  $! B #! B! B! B! B! B  $! B\"! B! B! B\n $!\" B\"!' B!) B!+ B!- B!/ B!1 B1\"!3 B1\"!5 B1\"!7 B 9 B : B ; B < B = B@\"" [purecopy "][A-Za-z{|}'~0-9`-" mail-extr-all-letters-but-separators current-load-list "---" mail-extr-all-letters "A-Za-z" mail-extr-first-letters "[A-Za-z`'." mail-extr-last-letters format "[^%s]+" mail-extr-leading-garbage "\\([%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 " [-{]\\|--\\|[+@#>\n!DBEEE?(\"BDBBBBEEF" [no-replace (t nil) error "no-replace must be t or nil, evalable at macroexpand-time." let temp list-symbol (ch) while (setq ch (car temp)) cond or > ch end-symbol < beg-symbol append ((mail-extr-nuke-char-at ch)) ((setcar temp nil)) ((setq temp (cdr temp))) setq delq nil] 11])) (defalias 'mail-extr-demarkerize #[(marker) " ! ! ĉ ) " [markerp marker marker-position temp nil] 3]) (defalias 'mail-extr-markerize #[(pos) " !\n \f !" [markerp pos copy-marker] 2]) (defalias 'mail-extr-last '(macro . #[(list) " DCBB" [let list ((while (not (null (cdr list))) (setq list (cdr list))) (car list))] 3])) (defalias 'mail-extr-safe-move-sexp '(macro . #[(arg) "EDBBBBB" [condition-case error progn goto-char scan-sexps (point) arg (t) ((error (if (string-equal (nth 1 error) "Unbalanced parentheses") nil (while t (signal (car error) (cdr error))))))] 7])) (byte-code "!\nM\fB\fB\fB" [fboundp buffer-disable-undo buffer-flush-undo disable-initial-guessing-flag current-load-list cbeg cend] 2) #@618 Given an RFC-822 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. 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.) If ADDRESS contains more than one RFC-822 address, only the first is returned. Some day this function may be extended to extract multiple addresses, or perhaps return the position at which parsing stopped. (defalias 'mail-extract-address-components #[(address) "!!É \n \f  !\"#$%&'()*)q )!/!~ 1c3;3c3!3!3\"eb#\"eb!mR`f((=`(=7@!Au!`f)B=`CD\"Au/!88`8(E=|\\Au!`f)E=\\`FGlAu88`8(H=I!JKAu/!8(L='`TfM=&'NANANN@)&@W`d|(8(OA`JBLAu8(P=Au8(Q>3`b``T|c)Au8Av(=(L=Lm`'Ap'@b``T|c)'A'T&A&A@b``T|c)&AAp%GAV$GA= 'eb``A\\|`C'Rc'&db`C&Sc&'&@b``T|c)&&@&'@'%T/@T&V!T'W&àA U%\"%*\"Tf@T&VXT'W]àADU\"\"\"*!T@T&VT'WàA{U!\"!*$#$@$A$'\n&\n'V\n&W\n%GVW%@V%A@Wb``T|c)'''W v @ A ']&]'V]&W]b``T|c)#jV###b``T|c)b``T|c)\"T@TVTWàAU\"\"\"*%T@TVTW\fàAU%\"%*!TL@TV>TWCàA*U!\"!*#T@TVuTWzàAaU#\"#*TVTVV#T@TAVTAWTb``T|c)àAU#\"#*'6'bW!`eb!`W3`6\"!X&!&X!&bYZ!%@b%A%``A\\|[ !B!\\c&Sb])%@#%@|)%Ab`Cb%&b``^\\|b``T|c)_!_&!&`_!\"!%@%*q *!/!1~ ])!'!'Tb!`&}844}8dd}%!!T|@T%V`TeWsTb``T|c)àAMU!\"!*!\"\"T@T!@VTeWTb``T|c)àAU\"\"\"*%(\"(!(\"T@T%VTeWTb``T|c)àAU\"\"\"*!L%L!@b``A\\|`%ac!A!b \" %c%b`!B!%``A\\|\\cdcd!!NANANN@)`d!\"\n!d%!%%%d%!%de }\"@ \"x db%\"A`%Ye!\f `!B!Yf!gA!]p\"A@' \"A@T( e\"@#``A\\|hiW!h)P=o YW!h)P=g jj kl\"\"A\")\n m`_\n\"!\"!_%!% Td}! % !@b``A\\|`%ac!A!!!n!@ % dd\"! !ope! !@ % d)qM\n=M\nXM\nTS}ed}ebqr#I\n``^\\|m)\nAu)\n*(\f[\n}(\f\nTS}ed}ebqr#\n``^\\|mq\nAuq\n*eb(\fdb``}]*#ebs#ebb\ntuvw #!m\f`f(E=U `xy\nAu`VZgA!``A\\|b``A\\|)}ebqr#D ``^\\|m$ Au$ *`f=O c\n(P= `Tfz>{ Au``A\\|c\n e`}\n``A\\|c\n(z{> ``A\\|c\n`Av`b}|}! `~E\"W!`d|#\f\" eb# \f\" db)\nb(\ftukw #!*#ebeb\f\f\fZ=\feb|!\ff f *q1 f\"\f Sf\"\fTf\f*\f\f\fz=\fb\fdeZV Z= db]*#\f W\f e\\f\\e\\f= T\fe\\d| ``}+eb3 #3 ``}edU?> *qedU?M .(D" [get-buffer-create " *canonical address*" " *extract address components*" nil 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 \,-pos :-pos @-pos >-pos <-pos char extraction-buffer canonicalization-buffer fundamental-mode kill-all-local-variables buffer-disable-undo set-syntax-table mail-extr-address-syntax-table erase-buffer case-fold-search 32 address bufferp insert-buffer error "Illegal address: %s" re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ ]" t replace-match "\\1 " skip-syntax-forward " " 40 mail-extr-address-comment-syntax-table 1 41 (byte-code "`\"b‡" [scan-sexps 1 t] 3) ((error (byte-code "A@?@A\" " [error "Unbalanced parentheses" signal] 3))) 34 (byte-code "`\"b‡" [scan-sexps 1 t] 3) ((error (byte-code "A@?@A\" " [error "Unbalanced parentheses" signal] 3))) 91 mail-extr-address-domain-literal-syntax-table (byte-code "`\"b‡" [scan-sexps 1 t] 3) ((error (byte-code "A@?@A\" " [error "Unbalanced parentheses" signal] 3))) 44 64 list ((60 . <-pos) (62 . >-pos) (64 . @-pos) (58 . :-pos) (44 . \,-pos) (33 . !-pos) (37 . %-pos) (59 . \;-pos)) 46 (41 93 92) 60 62 ch delq 2 skip-syntax-backward copy-marker insert-before-markers 88 point-marker "%" insert-buffer-substring -1 mail-extr-demarkerize mapcar "@" mail-extr-mangle-uucp mail-extr-@-binds-tighter-than-! mail-extr-markerize "@ " "% " backward-char (byte-code "`\"b" [scan-sexps -1] 3) ((error (byte-code "A@@A\"Ç" [error "Unbalanced parentheses" signal t] 3))) "" "." "uucp" append downcase-region truncated (byte-code "iA@ b!Ə`!h= ) b`{ \"\f;\fN)be`}@b``\\|`ϡ \"c\"Aχ" [temp @-pos skip-syntax-backward " " error (byte-code "`\"b" [scan-sexps -1] 3) ((error (byte-code "A@@A\"Ç" [error "Unbalanced parentheses" signal t] 3))) domain-pos 46 \.-pos intern-soft all-top-level-domains s domain-name 1 nil delq %-pos "@" throw truncated t] 4) search-forward "\\" "[_0-9]" modify-syntax-entry 33 "w" syntax-table (byte-code "`\"b‡" [scan-sexps 1 t] 3) ((error (byte-code "A@?@A\" " [error "Unbalanced parentheses" signal] 3))) (95 61) (46 92) looking-at mail-extr-x400-encoded-address-pattern #[(field-pattern) " #)pŔŕ#c" [re-search-forward field-pattern nil t insert-buffer-substring 1 " "] 4] 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 "\\1 \\2" "\\([^_=]+\\)[_=]" mail-extr-address-text-syntax-table mail-extr-voodoo mail-extr-guess-middle-initial 3 mail-extr-two-name-pattern 0 char-equal 119 ". " names-match-flag i buffer-length mail-extr-ignore-single-names "[- ]" buffer-string] 40 (#$ . 7089)]) (defalias 'mail-extr-voodoo #[(mbox-beg mbox-end canonicalization-buffer) " \n \f !#teb#Xeb#t\"H#teb#t\"ceb\nb \n\n!=`d}` =!b`d}UY'!!'!` g=ucg=c!g>!g=uc!U!;b`d}\nUg=Z=Zu\fg=UcUg>`,-!g>g=|}$``\\|󏄔db!`4=!4,ZY,T4S}ebU4,ZU4,ZU,\\f=!,Tf  ,4| U Uoh=2!2``\\|`<=>#`\"?U@!C؁A\"UB!TbU=mC!mb`d}UYD!E!F!G!H!UI!|UJ!gg=ug=ucg=cU=K!}UL!S`Y**ށM!' Sf=* ځN #J\fbځO #GJ bUwTw uށP!ud be `} ebށQ!R )\febԁS!`S dbh=cpe # bTw`d}ebځU#mA\"." [0 nil name-done-flag name-end name-beg last-word-beg this-word-beg word-found-flag 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 set-syntax-table mail-extr-address-text-syntax-table search-forward " " t "_" replace-match "." re-search-forward mail-extr-bad-dot-pattern "\\1 \\2" skip-syntax-forward looking-at mail-extr-full-name-prefixes 2 mail-extr-full-name-suffix-pattern skip-syntax-backward 44 1 32 (106 74 115 83) capitalize-word 46 upcase-word "MKA \\(.+\\)" (40 123 91 34 39 96) cbeg mail-extr-address-text-comment-syntax-table (39 96) "'" 39 error (byte-code "`\"b‡" [scan-sexps 1 t] 3) ((error (byte-code "A@?@A\" " [error "Unbalanced parentheses" signal] 3))) cend " *\\'" 3 4 ". " "&\\( \\|\\'\\)" capitalize-region insert-buffer-substring canonicalization-buffer mbox-beg mbox-end disable-initial-guessing-flag 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 mail-extr-name-pattern "[a-z][a-z][a-z][a-z]+[ ]*\\'" "[a-z]" "[A-Z]" "\\.+\\'" "[-A-Za-z_]+[. ]\\(PARC\\|ADOC\\)\\'" erase-buffer "," " ," "[ \n]+"] 16]) (byte-code "\"\" )B" [make-vector 509 0 ob mapcar #[(x) "\n@ \"\n8\n8\nA@\"\nA@#" [put intern x ob domain-name 2 format] 6] (("ag" "Antigua") ("ar" "Argentina" "Argentine Republic") ("arpa" t "Advanced Projects Research Agency") ("at" "Austria" "The Republic of %s") ("au" "Australia") ("bb" "Barbados") ("be" "Belgium" "The Kingdom of %s") ("bg" "Bulgaria") ("bitnet" t "Because It's Time NET") ("bo" "Bolivia" "Republic of %s") ("br" "Brazil" "The Federative Republic of %s") ("bs" "Bahamas") ("bz" "Belize") ("ca" "Canada") ("ch" "Switzerland" "The Swiss Confederation") ("cl" "Chile" "The Republic of %s") ("cn" "China" "The People's Republic of %s") ("co" "Columbia") ("com" t "Commercial") ("cr" "Costa Rica" "The Republic of %s") ("cs" "Czechoslovakia") ("de" "Germany") ("dk" "Denmark") ("dm" "Dominica") ("do" "Dominican Republic" "The %s") ("ec" "Ecuador" "The Republic of %s") ("edu" t "Educational") ("eg" "Egypt" "The Arab Republic of %s") ("es" "Spain" "The Kingdom of %s") ("fi" "Finland" "The Republic of %s") ("fj" "Fiji") ("fr" "France") ("gov" t "Government (U.S.A.)") ("gr" "Greece" "The Hellenic Republic (%s)") ("hk" "Hong Kong") ("hu" "Hungary" "The Hungarian People's Republic") ("ie" "Ireland") ("il" "Israel" "The State of %s") ("in" "India" "The Republic of %s") ("int" t "(something British, don't know what)") ("is" "Iceland" "The Republic of %s") ("it" "Italy" "The Italian Republic") ("jm" "Jamaica") ("jp" "Japan") ("kn" "St. Kitts and Nevis") ("kr" "South Korea") ("lc" "St. Lucia") ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") ("mil" t "Military (U.S.A.)") ("mx" "Mexico" "The United Mexican States") ("my" "Malaysia" "%s (changed to Myanmar?)") ("na" "Namibia") ("nato" t "North Atlantic Treaty Organization") ("net" t "Network") ("ni" "Nicaragua" "The Republic of %s") ("nl" "Netherlands" "The Kingdom of the %s") ("no" "Norway" "The Kingdom of %s") ("nz" "New Zealand") ("org" t "Organization") ("pe" "Peru") ("pg" "Papua New Guinea") ("ph" "Philippines" "The Republic of the %s") ("pl" "Poland") ("pr" "Puerto Rico") ("pt" "Portugal" "The Portugese Republic") ("py" "Paraguay") ("se" "Sweden" "The Kingdom of %s") ("sg" "Singapore" "The Republic of %s") ("sr" "Suriname") ("su" "Soviet Union") ("th" "Thailand" "The Kingdom of %s") ("tn" "Tunisia") ("tr" "Turkey" "The Republic of %s") ("tt" "Trinidad and Tobago") ("tw" "Taiwan") ("uk" "United Kingdom" "The %s of Great Britain") ("unter-dom" t "(something German)") ("us" "U.S.A." "The United States of America") ("uucp" t "Unix to Unix CoPy") ("uy" "Uruguay" "The Eastern Republic of %s") ("vc" "St. Vincent and the Grenadines") ("ve" "Venezuela" "The Republic of %s") ("yu" "Yugoslavia" "The Socialist Federal Republic of %s") ("za" "South Africa" "The Republic of %s (or Zambia? Zaire?)") ("zw" "Zimbabwe" "Republic of %s")) all-top-level-domains current-load-list] 3) #@88 Prompts for a mail domain, and prints the country it corresponds to in the minibuffer. (defalias 'what-domain #[(x) " \n\"! ! N#" [intern-soft x all-top-level-domains error "no such domain" message "%s: %s" symbol-name domain-name] 5 (#$ . 19909) (let ((completion-ignore-case t)) (list (completing-read "Domain: " all-top-level-domains nil t)))]) (provide (quote mail-extr))