;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:49:00 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/rfc822.el ;;; emacs version 19.15.16. ;;; 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"))) (error "This file was compiled for Emacs 19")) (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"安ﾍﾎ\"安ﾏﾐ\"安ﾑﾒ\"安ﾓﾔ\"易ﾖ!" [defalias rfc822-bad-address #[(reason) "限c ﾂﾃﾄﾅ#e`S]d}鞍eb以@ﾄﾅ#4ﾉﾊ!依c位uA)eb偉 ﾎｱdb委c)ﾐ 尉ﾒ `{\"" ["_^_" address-start re-search-forward "[,;]" nil t ("\\" "(" ")" "\n") losers search-forward backward-char 1 92 "(Unparsable address -- " reason ":\n \"" "\")" rfc822-nuke-whitespace throw address] 6] rfc822-nuke-whitespace #[(&optional leave-space) "ﾀmmgﾂUソ\ﾃumﾄﾅ!!gﾆU?コﾇﾈ!1ﾉﾊ! ﾂU=ﾋ `dSWガﾌﾍ!ﾄﾎ!ﾏu偉ﾍ! ﾐ>ノ`ﾑﾀw`|?mohﾓUﾓc)" [nil ch 40 1 rfc822-bad-address "Unbalanced comment (...)" 41 looking-at "[^()\\]+" replace-match "" rfc822-nuke-whitespace delete-char 2 "orphaned backslash" -1 (32 9 10) " \n" leave-space 32] 3] rfc822-looking-at #[(regex &optional leave-space) ";ﾁ!.ﾂ秒 m?.gU.ﾃu案 ﾆ!以 !)ﾉ" [regex looking-at 0 1 match-data tem rfc822-nuke-whitespace leave-space store-match-data t] 2] rfc822-snarf-word #[nil "gﾀUﾁﾂ!ﾃﾄ!ﾁﾅ!ﾃﾆ!" [34 rfc822-looking-at "\"\\([^\"\\\n]\\|\\\\.\\|\\\\\n\\)*\"" rfc822-bad-address "Unterminated quoted string" "[^][-- ()<>@,;:\\\".]+" "Rubbish in address"] 2] rfc822-snarf-words #[nil "ﾀ 庵ﾂ!ﾀ " [rfc822-snarf-word rfc822-looking-at 46] 2] rfc822-snarf-subdomain #[nil "gﾀUﾁﾂ!ﾃﾄ!ﾁﾅ!ﾃﾆ!" [91 rfc822-looking-at "\\[\\([^][\\\n]\\|\\\\.\\|\\\\\n\\)*\\]" rfc822-bad-address "Unterminated domain literal [...]" "[^][-- ()<>@,;:\\\".]+" "Rubbish in host/domain specification"] 2] rfc822-snarf-domain #[nil "ﾀ 庵ﾂ!ﾀ " [rfc822-snarf-subdomain rfc822-looking-at 46] 2] rfc822-snarf-frob-list #[(name separator terminator snarfer &optional return) "ﾀﾁmﾅﾆﾇ\"!7ﾉ\n!Ьﾉ !,ﾉ !Ы": :ﾅﾆﾌ\"!ゾ ﾁ\n\n<シﾏ\n! ､Y\n B +" [t nil tem list first rfc822-bad-address format "End of addresses in middle of %s" name rfc822-looking-at terminator separator "Gubbish in middle of %s" snarfer return reverse] 4] rfc822-addresses-1 #[(&optional allow-groups) "`ﾀﾃﾄ*" [0 n address-start address (byte-code "ﾀﾁﾂ\"(mﾀﾃ!(ohﾄUﾅﾆ!杏ﾈ ﾊ府\" b ﾌUエﾀﾍ!エﾎ 杏ﾈ `{\",ﾀﾏ!ビШﾑﾒ!Ｅ ﾊUヅﾑﾓ!杏ﾈﾔﾕﾃﾖﾗﾂ%\",ﾀﾘ!`ﾂﾀﾛ!┨m┃gﾍUΝﾔﾜﾃﾏﾝ$萎 安ﾍ!┐ﾑﾟ!夷 謂すﾞ 安ﾍ!ｷﾎ `!ﾀﾛ!ﾇﾈξぱSﾙ!ま!T{\"よﾑ!+,聿!ソ"ﾂ% ﾊUohﾄUﾄc萎  T ﾀ!聿!%), ﾊU1ﾇﾈ濬", ﾌUイﾇﾈ `{\", ﾌVゲﾑ!,mЪgﾃUッﾑ!,ﾑ!," [rfc822-looking-at "[^][-- ()<>@,;:\\\"]+\\(\\|@[^][-- ()<>@,;:\\\"]+\\)" t 44 32 delete-char -1 throw address address-start 0 n 1 64 rfc822-snarf-domain 58 allow-groups rfc822-bad-address "A group name may not appear here" "No name for :...; group" rfc822-snarf-frob-list ":...; group" 59 rfc822-addresses-1 60 strip start 62 "<...> address" #[nil "ﾀﾁ! ﾂ ﾃﾄ!" [rfc822-looking-at 64 rfc822-snarf-domain rfc822-bad-address "Gubbish in route-addr"] 2] rfc822-snarf-words "Malformed <..@..> address" nil end "Unterminated <...> address" looking-at "[^][-- ()<>@,;:\\.]" again 46 "Missing comma between addresses or badly-formatted address" "Missing comma or route-spec" "Strange character or missing comma"] 9)] 2] rfc822-addresses #[(header-text) "ﾀﾁ\n\"\nﾃ氾桧Cﾄﾅ!ﾇ至q以ﾉ!位 \nceb依ﾌﾊﾍ#8ﾎﾏﾍ\"(eb威 位演mв`ﾔﾕ拷エ;トBG､G." [string-match "\\`[ ]*\\([^][-- ()<>@,;:\\\".]+\\)[ ]*\\'" header-text 1 generate-new-buffer " rfc822" buf ((byte-code "ﾁ!庵" [buf kill-buffer] 2)) make-local-variable case-fold-search nil re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ ]" t replace-match "\\1 " rfc822-nuke-whitespace address-start tem list address (byte-code "ﾀﾁ!ﾂﾃﾄ!ﾂu闇ﾆﾇh\"!ﾈﾉ!" [rfc822-looking-at 44 nil looking-at "[][--@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 4)] 5] provide rfc822] 3)