;;; compiled by eric@geech.gnu.ai.mit.edu on Fri Mar 26 21:04:31 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/rfc822.el ;;; emacs version 19.0.509. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "MMMMMMMMMM!" [rfc822-bad-address #[(reason) "c\n#e`S]d\"eb@#6!c!A)ebcccdbc) \n`\"\"" ["_^_" narrow-to-region address-start re-search-forward "[,;]" nil t ("\\" "(" ")" "\n") losers search-forward backward-char 1 92 forward-char "(Unparsable address -- " reason ":\n \"" "\")" rfc822-nuke-whitespace throw address buffer-substring] 7] rfc822-nuke-whitespace #[(&optional leave-space) "mpgU^!m!\"gU?S!2! U> `dSWL!!!! >p`!`\"?mohUc)" [nil ch 40 forward-char 1 rfc822-bad-address "Unbalanced comment (...)" 41 looking-at "[^()\\]+" replace-match "" rfc822-nuke-whitespace delete-char 2 "orphaned backslash" -1 (32 9 10) delete-region skip-chars-forward " \n" leave-space 32] 4] rfc822-looking-at #[(regex &optional leave-space) ";!2!b\"m?2gU2!  !!)ˇ" [regex looking-at match-end 0 forward-char 1 match-data tem rfc822-nuke-whitespace leave-space store-match-data t] 2] rfc822-snarf-word #[nil "gU!!!!" [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 "gU!!!!" [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@,;:\\\"]+\\(\\|@[^][-- ()<>@,;:\\\"]+\\)" t 44 32 delete-char -1 throw address buffer-substring address-start match-end 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!!OC!Ɏq! \nceb#:\"*eb ̉mv`׍I;iBI!\"I!." [string-match "\\`[ ]*\\([^][-- ()<>@,;:\\\".]+\\)[ ]*\\'" header-text match-beginning 1 match-end 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 "!‡! h\"!!" [rfc822-looking-at 44 nil looking-at "[][--@;:\\.>)]" forward-char rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 4) nconc nreverse] 5] provide rfc822] 2)