| Server IP : 217.160.0.212 / Your IP : 216.73.216.117 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/mail/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
#@15
(fn REASON)
(defalias 'rfc822-bad-address #[257 "\214\301c\210\302\303\304\305#\203 e`S]\202 d}\210\306\211\203; eb\210\307@\304\305#\2034 \310u\210\311c\210\312u\210\202 \211A\262\202 \210eb\210\313\314\261\210db\210\315c\210)\316 \210\317\320`{\"\207" [rfc822-address-start "_^_" re-search-forward "[,;]" nil t ("\\" "(" ")" "\n") search-forward -1 92 1 "(Unparsable address -- " ": \"" "\")" rfc822-nuke-whitespace throw address] 6 (#$ . 84)])
#@30
(fn &optional LEAVE-SPACE)
(defalias 'rfc822-nuke-whitespace #[256 "\300m\204n g\211\262\301U\203] \302u\210m\203 \303\304!\202\" g\211\262\305U?\203S \306\307!\2032 \310\311!\210\202 \211\301U\203> \312 \210\202 `dSW\203L \313\314!\210\202 \303\315!\210\202 \316u\210\313\314!\210\202 \211\317>\203n `\320\300w\210`|\210\202 ?\206\203 m\206\203 o\206\203 h\321U\206\203 \321c\207" [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] 5 (#$ . 549)])
#@36
(fn REGEX &optional LEAVE-SPACE)
(defalias 'rfc822-looking-at #[513 ";\203 \300!\205- \301\225b\210\202 m?\205- gU\205- \302u\210\303 \304!\210\305!\210\306\262\207" [looking-at 0 1 match-data rfc822-nuke-whitespace set-match-data t] 5 (#$ . 1144)])
(defalias 'rfc822-snarf-word #[0 "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 #[0 "\300 \210\301\302!\205 \300 \210\202 \207" [rfc822-snarf-word rfc822-looking-at 46] 2])
(defalias 'rfc822-snarf-subdomain #[0 "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 #[0 "\300 \210\301\302!\205 \300 \210\202 \207" [rfc822-snarf-subdomain rfc822-looking-at 46] 2])
#@59
(fn NAME SEPARATOR TERMINATOR SNARFER &optional RETURN)
(defalias 'rfc822-snarf-frob-list #[1284 "\300\301\211m\203 \302\303\304\n\"!\2024 \305!\204[ \305!\203) \305!\204 \2027 \2047 \302\303\306\n\"!\203[ \262\301\262\203 \211\203 \211<\203S \307!\244\202V \211B\262\202 \237\207" [t nil rfc822-bad-address format "End of addresses in middle of %s" rfc822-looking-at "Gubbish in middle of %s" reverse] 12 (#$ . 2230)])
#@31
(fn &optional ALLOW-GROUPS)
(defalias 'rfc822-addresses-1 #[256 "`\301\3022[\303\304\305\"\203/ m\204 \303\306!\203/ o\204' h\307U\203' \310\311!\210\312\302\301\225{\"\210b\210\211\313U\203K \303\314!\203K \315 \210\312\302`{\"\210\2022 \303\316!\203t \204\\ \317\320!\210\202f \211\301U\203f \317\321!\210\312\302\322\323\306\324\325\305%\"\210\2022 \303\326!\203\341 `\305\303\327!\204\265 m\204\251 g\314U\203\251 \322\330\306\316\331$\210\332 \210\303\314!\204\240 \317\333!\210\315 \210\334\262\202\265 \332 \210\303\314!\203\265 \315 \210`\303\327!\203\331 \312\302\203\306 \202\310 S\203\320 \202\322 T{\"\266\2022 \317\335!\266\2022 \336\337!\203\305\211\203\301U\204\377 o\204\377 h\307U\204\377 \307c\210\332 \210T\262\303\340!\206\336\337!\262\202\350 \210\2022 \211\301U\203&\312\302\334\"\210\2022 \211\313U\2036\312\302`{\"\210\2022 \211\313V\203C\317\341!\210\2022 m\204Mg\306U\203T\317\342!\210\2022 \317\343!\210\2022 )\207" [rfc822-address-start 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" #[0 "\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"] 11 (#$ . 2682)])
#@20
(fn HEADER-TEXT)
(defalias 'rfc822-addresses #[257 "\302\303\"\203 \211\304\224\304\225OC\207\305\306!\307\310\"\216r\211q\210\311\300!\210\312c\210eb\210\313\314\312\315#\2037 \316\317\315\"\210\202' eb\210`\312\211\3202\215 \321 \210m\204\213 `\322\323!\203U \312\202o \324\325!\203l \312u\210\3202o \326\327\330h\"!0\202o \331\315!\262\211\203E \211;\203\202 \211B\262\202E \211\237\244\262\202E \3120\332\205\224 C\"\237)\266\203*\207" [case-fold-search rfc822-address-start string-match "\\`[ ]*\\([^][ - ()<>@,;:\\\".]+\\)[ ]*\\'" 1 generate-new-buffer " rfc822" make-closure #[0 "\300\205 \301\300!\207" [V0 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] 8 (#$ . 4387)])
(provide 'rfc822)