| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/mail/rfc822.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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#\203 e`S]\202 d}\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\204m g\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\202 m\206\202 o\206\202 h\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\266 m\204\252 g\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\376 o\204\376 h\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\2022 m\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\226 C\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)