;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/rfc822.el
;;; in Emacs version 24.3.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) "`\302\303\304\215*\207" [n rfc822-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\204D
g\311U\203K
\324\347!\210\202*\324\350!\210\202*" [rfc822-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\216r	q\210\314\302!\210\315c\210eb\210\316\317\315\320#\2035\321\322\320\"\210\202%eb\210`\315\211\323\324\215\325\205LC\f\"\237.\207" [header-text buf case-fold-search rfc822-address-start list tem 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 " address (byte-code "\303 \210m\204>`\304\305!\203\306\202%\307\310!\203\"\306u\210\311\312\215\202%\313\314!\211\203	;\2036	\nB\202	\237\n\244\202\306\207" [rfc822-address-start tem list rfc822-nuke-whitespace rfc822-looking-at 44 nil looking-at "[][-@;:\\.>)]" address (byte-code "\300\301\302h\"!\207" [rfc822-bad-address format "Strange character \\%c found"] 4) rfc822-addresses-1 t] 3) append err] 5])
(provide 'rfc822)