;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:49:03 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/rfc822.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/rfc822.el' was compiled for Emacs 19")) (defalias 'rfc822-bad-address #[(reason) "c #e`S]d}eb@#4!cuA)eb αdbc) `{\"" ["_^_" 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]) (defalias 'rfc822-nuke-whitespace #[(&optional leave-space) "mmgU\\um!!gU?R!1! U= `dSWK!!u! >m`w`|?mohUc)" [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]) (defalias 'rfc822-looking-at #[(regex &optional leave-space) ";!.•b m?.gU.u ! !)ɇ" [regex looking-at 0 1 match-data tem rfc822-nuke-whitespace leave-space store-match-data t] 2]) (defalias 'rfc822-snarf-word #[nil "gU!!!!" [34 rfc822-looking-at "\"\\([^\"\\\n]\\|\\\\.\\|\\\\\n\\)*\"" rfc822-bad-address "Unterminated quoted string" "[^][-- ()<>@,;:\\\".]+" "Rubbish in address"] 2]) (defalias 'rfc822-snarf-words #[nil " ! " [rfc822-snarf-word rfc822-looking-at 46] 2]) (defalias 'rfc822-snarf-subdomain #[nil "gU!!!!" [91 rfc822-looking-at "\\[\\([^][\\\n]\\|\\\\.\\|\\\\\n\\)*\\]" rfc822-bad-address "Unterminated domain literal [...]" "[^][-- ()<>@,;:\\\".]+" "Rubbish in host/domain specification"] 2]) (defalias 'rfc822-snarf-domain #[nil " ! " [rfc822-snarf-subdomain rfc822-looking-at 46] 2]) (defalias 'rfc822-snarf-frob-list #[(name separator terminator snarfer &optional return) "m\"!7\n!] !, !\":\f:\"!] \n\n@,;:\\\"]+\\(\\|@[^][-- ()<>@,;:\\\"]+\\)" 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]) (defalias 'rfc822-addresses #[(header-text) "\n\"\nÔÕOC!ǎq! \nceb#8\"(eb ʉmr`ՍG;gBGG." [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 "!‡!uh\"!!" [rfc822-looking-at 44 nil looking-at "[][--@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 4)] 5]) (provide (quote rfc822))