Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
binhex.elc	8.56 KB	-rw-r--r--
blessmail.el	2.5 KB	-rw-r--r--
emacsbug.elc	15 KB	-rw-r--r--
feedmail.elc	98.21 KB	-rw-r--r--
flow-fill.elc	3.15 KB	-rw-r--r--
footnote.elc	26.54 KB	-rw-r--r--
hashcash.elc	10.83 KB	-rw-r--r--
ietf-drums.elc	8.65 KB	-rw-r--r--
mail-extr.elc	32.53 KB	-rw-r--r--
mail-hist.elc	13.44 KB	-rw-r--r--
mail-parse.elc	2.3 KB	-rw-r--r--
mail-prsvr.elc	1.08 KB	-rw-r--r--
mail-utils.elc	10.13 KB	-rw-r--r--
mailabbrev.elc	14.4 KB	-rw-r--r--
mailalias.elc	14.49 KB	-rw-r--r--
mailclient.elc	4.13 KB	-rw-r--r--
mailheader.elc	5.54 KB	-rw-r--r--
metamail.elc	4.21 KB	-rw-r--r--
mspools.elc	8.74 KB	-rw-r--r--
qp.elc	4.14 KB	-rw-r--r--
reporter.elc	9 KB	-rw-r--r--
rfc2045.elc	826 B	-rw-r--r--
rfc2047.elc	24.87 KB	-rw-r--r--
rfc2231.elc	6.35 KB	-rw-r--r--
rfc2368.elc	2.32 KB	-rw-r--r--
rfc822.elc	5.45 KB	-rw-r--r--
rmail-loaddefs.el	7.79 KB	-rw-r--r--
rmail-spam-filter.elc	12.71 KB	-rw-r--r--
rmail.elc	124.13 KB	-rw-r--r--
rmailedit.elc	9.82 KB	-rw-r--r--
rmailkwd.elc	4.98 KB	-rw-r--r--
rmailmm.elc	41.24 KB	-rw-r--r--
rmailmsc.elc	1.34 KB	-rw-r--r--
rmailout.elc	17.84 KB	-rw-r--r--
rmailsort.elc	6.17 KB	-rw-r--r--
rmailsum.elc	54.29 KB	-rw-r--r--
sendmail.elc	53.92 KB	-rw-r--r--
smtpmail.elc	25.46 KB	-rw-r--r--
supercite.elc	57.29 KB	-rw-r--r--
uce.elc	7.54 KB	-rw-r--r--
undigest.elc	7.81 KB	-rw-r--r--
unrmail.elc	5.25 KB	-rw-r--r--
uudecode.elc	5.26 KB	-rw-r--r--
yenc.elc	3.48 KB	-rw-r--r--

Code Editor : rfc822.elc

;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#\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)

${this.title}

Code Editor : rfc822.elc