;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:52 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/rfc822.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 "`rfc822.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'rfc822-bad-address #[(reason) "\214\303c\210\304\305\306\307#\203e`S]\202d}\210\310eb\210\311 @\306\307#\2031\312u\210\313c\210\314u\210\202 A\211\204)eb\210\315\n\316\261\210db\210\317c\210)\320 \210\321\322`{\"\207" [address-start losers reason "_^_" re-search-forward "[,;]" nil t ("\\" "(" ")" "\n") search-forward -1 92 1 "(Unparsable address -- " ": \"" "\")" rfc822-nuke-whitespace throw address] 6]) (defalias 'rfc822-nuke-whitespace #[(&optional leave-space) "\302m\204mg\211\303U\203\\\304u\210m\203\305\306!\202!g\211\307U?\203R\310\311!\2031\312\313!\210\202\303U\203=\314 \210\202`dSW\203K\315\316!\210\202\305\317!\210\202\320u\210\315\316!\210\202\321>\203m`\322\302w\210`|\210\202 ?\206\202m\206\202o\206\202h\323U\206\202\323c)\207" [ch leave-space nil 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" 32] 3]) (defalias 'rfc822-looking-at #[(regex &optional leave-space) ";\203\303!\205-\304\225b\210\202 m?\205-gU\205-\305u\210\306 \307\n!\210\310 !\210)\311\207" [regex tem leave-space looking-at 0 1 match-data rfc822-nuke-whitespace set-match-data t] 2]) (defalias 'rfc822-snarf-word #[nil "g\300U\203\301\302!\206\303\304!\207\301\305!\206\303\306!\207" [34 rfc822-looking-at "\"\\([^\"\\\n]\\|\\\\.\\|\\\\\n\\)*\"" rfc822-bad-address "Unterminated quoted string" "[^][- ()<>@,;:\\\".]+" "Rubbish in address"] 2]) (defalias 'rfc822-snarf-words #[nil "\300 \210\301\302!\205\300 \210\202\207" [rfc822-snarf-word rfc822-looking-at 46] 2]) (defalias 'rfc822-snarf-subdomain #[nil "g\300U\203\301\302!\206\303\304!\207\301\305!\206\303\306!\207" [91 rfc822-looking-at "\\[\\([^][\\\n]\\|\\\\.\\|\\\\\n\\)*\\]" rfc822-bad-address "Unterminated domain literal [...]" "[^][- ()<>@,;:\\\".]+" "Rubbish in host/domain specification"] 2]) (defalias 'rfc822-snarf-domain #[nil "\300 \210\301\302!\205\300 \210\202\207" [rfc822-snarf-subdomain rfc822-looking-at 46] 2]) (defalias 'rfc822-snarf-frob-list #[(name separator terminator snarfer &optional return) "\306\307\211m\203\310\311\312 \"!\2022\313\f!\204X\313 !\203(\313 !\204\2025\n\2045\310\311\314 \"!\203X \307\203\203<\203Q\315! \244\202T B\202 \237+\207" [tem list first name terminator separator t nil rfc822-bad-address format "End of addresses in middle of %s" rfc822-looking-at "Gubbish in middle of %s" reverse snarfer return] 4]) (defalias 'rfc822-addresses-1 #[(&optional allow-groups) "`\302\303\304\215*\207" [n address-start 0 address (byte-code "\306\307\310\"\203'm\204\306\311!\203'o\204h\312U\203\313\314!\210\315\316\317\225{\"\210b\210 \320U\203C\306\321!\203C\322 \210\315\316`{\"\210\202*\306\323!\203l\n\204T\324\325!\210\202^ \317U\203^\324\326!\210\315\316\327\330\311\331\332\310%\"\210\202*\306\333!\203\332`\310\306\334!\204\256m\204\242g\321U\203\242\327\335\311\323\336$\210\337 \210\306\321!\204\232\324\340!\210\322 \210\341\202\256\337 \210\306\321!\203\256\322 \210`\306\334!\203\322\315\316 \203\300\f\202\302\fS \203\312 \202\314 T{\"\210\202\326\324\342!\210+\202*\343\344!\203\310) \317U\204\366o\204\366h\312U\204\366\312c\210\337 \210 T\306\345!\206\343\344!\211)\204\343)\202* \317U\203\315\316\341\"\210\202* \320U\203-\315\316`{\"\210\202* \320V\203:\324\346!\210\202*m\204Dg\311U\203K\324\347!\210\202*\324\350!\210\202*" [address-start n allow-groups strip start end rfc822-looking-at "[^][- ()<>@,;:\\\"]+\\(\\|@[^][- ()<>@,;:\\\"]+\\)" t 44 32 delete-char -1 throw address 0 1 64 rfc822-snarf-domain 58 rfc822-bad-address "A group name may not appear here" "No name for :...; group" rfc822-snarf-frob-list ":...; group" 59 rfc822-addresses-1 60 62 "<...> address" #[nil "\300\301!\203 \302 \207\303\304!\207" [rfc822-looking-at 64 rfc822-snarf-domain rfc822-bad-address "Gubbish in route-addr"] 2] rfc822-snarf-words "Malformed <..@..> address" nil "Unterminated <...> address" looking-at "[^][- ()<>@,;:\\.]" 46 "Missing comma between addresses or badly-formatted address" "Missing comma or route-spec" "Strange character or missing comma" again] 9)] 2]) (defalias 'rfc822-addresses #[(header-text) "\306\307\"\203\310\224\310\225OC\207\311\312!\313\216\212 q\210\314\302!\210\315c\210eb\210\316\317\315\320#\2035\321\322\320\"\210\202%eb\210\323 \210\315\211\211m\204c`\324\325\215\211\203A\f;\203[\f B\202A\f\237 \244\202A \237.\207" [header-text buf case-fold-search address-start tem list string-match "\\`[ ]*\\([^][- ()<>@,;:\\\".]+\\)[ ]*\\'" 1 generate-new-buffer " rfc822" ((byte-code "\203\301!\210\301\207" [buf kill-buffer] 2)) make-local-variable nil re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ ]" t replace-match "\\1 " rfc822-nuke-whitespace address (byte-code "\300\301!\203\302\207\303\304!\203\302u\210\305\306\307h\"!\207\310\311!\207" [rfc822-looking-at 44 nil looking-at "[][-@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 4)] 5]) (provide 'rfc822)