;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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" [rfc822-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) "`\306\3072Z\310\311\312\"\203/m\204\310\313!\203/o\204'h\314U\203'\315\316!\210\317\307 \306\225{\"\210 b\210\320U\203K\310\321!\203K\322 \210\317\307 `{\"\210\2022\310\323!\203t\n\204\\\324\325!\210\202f\306U\203f\324\326!\210\317\307\327\330\313\331\332\312%\"\210\2022\310\333!\203\342`\312\310\334!\204\266m\204\252g\321U\203\252\327\335\313\323\336$\210\337 \210\310\321!\204\242\324\340!\210\322 \210\341\202\266\337 \210\310\321!\203\266\322 \210`\310\334!\203\332\317\307 \203\310\f\202\312\fS \203\322 \202\324 T{\"\210\202\336\324\342!\210+\2022\343\344!\203\312)\306U\204\376o\204\376h\314U\204\376\314c\210\337 \210T\310\345!\206 \343\344!\211)\204\353)\2022\306U\203%\317\307\341\"\210\2022\320U\2035\317\307 `{\"\210\2022\320V\203B\324\346!\210\2022m\204Lg\313U\203S\324\347!\210\2022\324\350!\210\2022*\207" [n rfc822-address-start allow-groups strip start end 0 address rfc822-looking-at "[^][- ()<>@,;:\\\"]+\\(\\|@[^][- ()<>@,;:\\\"]+\\)" t 44 32 delete-char -1 throw 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]) (defalias 'rfc822-addresses #[(header-text) "\306\307\"\203\310\311\224\311\225#C\207\312\313!\314\216r q\210\315\302!\210\316c\210eb\210\317\320\316\321#\2036\322\323\321\"\210\202&eb\210`\316\211\3242\213\325 \210m\204\211`\326\327!\203V\316\202p\330\331!\203m\316u\210\3242p\332\333\334h\"!0\202p\335\321!\211\203F ;\203\201 \fB\202F \237\f\244\202F\3160\336\205\226C\f\"\237.\207" [header-text buf case-fold-search rfc822-address-start list tem string-match "\\`[ ]*\\([^][- ()<>@,;:\\\".]+\\)[ ]*\\'" substring 1 generate-new-buffer " rfc822" #[nil "\205\301!\207" [buf kill-buffer] 2] make-local-variable nil re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ ]" t replace-match "\\1 " address rfc822-nuke-whitespace rfc822-looking-at 44 looking-at "[][-@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 append err] 5]) (provide 'rfc822)