HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/mail/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/mail/rfc822.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\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\3232\212\324 \210m\204\210`\325\326!\203U\315\202o\327\330!\203l\315u\210\3232o\331\332\333h\"!0\202o\334\320!\211\203E
;\203\200
\fB\202E
\237\f\244\202E\3150\335\205\225C\f\"\237.\207" [header-text buf case-fold-search rfc822-address-start list tem string-match "\\`[ 	]*\\([^][- ()<>@,;:\\\".]+\\)[ 	]*\\'" 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)