Gecko [ goons4good.org ]

Name	Size	Permission	Date
binhex.elc	8.46 KB	-rw-r--r--	2023-06-07 04:03
blessmail.el	2.43 KB	-rw-r--r--	2013-01-01 15:37
emacsbug.elc	15.99 KB	-rw-r--r--	2023-06-07 04:03
feedmail.elc	96.01 KB	-rw-r--r--	2023-06-07 04:03
footnote.elc	21.67 KB	-rw-r--r--	2023-06-07 04:03
hashcash.elc	10.45 KB	-rw-r--r--	2023-06-07 04:04
mail-extr.elc	31.82 KB	-rw-r--r--	2023-06-07 04:04
mail-hist.elc	13.59 KB	-rw-r--r--	2023-06-07 04:04
mail-utils.elc	10.03 KB	-rw-r--r--	2023-06-07 04:04
mailabbrev.elc	13.86 KB	-rw-r--r--	2023-06-07 04:04
mailalias.elc	14.44 KB	-rw-r--r--	2023-06-07 04:04
mailclient.elc	3.31 KB	-rw-r--r--	2023-06-07 04:04
mailheader.elc	5.69 KB	-rw-r--r--	2023-06-07 04:04
metamail.elc	4.36 KB	-rw-r--r--	2023-06-07 04:04
mspools.elc	7.09 KB	-rw-r--r--	2023-06-07 04:04
reporter.elc	9.36 KB	-rw-r--r--	2023-06-07 04:04
rfc2368.elc	2.46 KB	-rw-r--r--	2023-06-07 04:04
rfc822.elc	5.73 KB	-rw-r--r--	2023-06-07 04:04
rmail-spam-filter.elc	12.79 KB	-rw-r--r--	2023-06-07 04:04
rmail.elc	127.36 KB	-rw-r--r--	2023-06-07 04:04
rmailedit.elc	9.4 KB	-rw-r--r--	2023-06-07 04:04
rmailkwd.elc	5.1 KB	-rw-r--r--	2023-06-07 04:04
rmailmm.elc	38.84 KB	-rw-r--r--	2023-06-07 04:04
rmailmsc.elc	1.5 KB	-rw-r--r--	2023-06-07 04:04
rmailout.elc	16.45 KB	-rw-r--r--	2023-06-07 04:04
rmailsort.elc	6.27 KB	-rw-r--r--	2023-06-07 04:04
rmailsum.elc	51.57 KB	-rw-r--r--	2023-06-07 04:04
sendmail.elc	54.33 KB	-rw-r--r--	2023-06-07 04:04
smtpmail.elc	22.25 KB	-rw-r--r--	2023-06-07 04:04
supercite.elc	56.84 KB	-rw-r--r--	2023-06-07 04:04
uce.elc	7.47 KB	-rw-r--r--	2023-06-07 04:04
undigest.elc	7.97 KB	-rw-r--r--	2023-06-07 04:04
unrmail.elc	4.63 KB	-rw-r--r--	2023-06-07 04:04
uudecode.elc	5.69 KB	-rw-r--r--	2023-06-07 04:04

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:04:06 2023
;;; 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#\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) "`\302\303\304\215*\207" [n rfc822-address-start 0 address (byte-code "\306\307\310\"\203'�m\204�\306\311!\203'�o\204�h\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\256�m\204\242�g\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\366�o\204\366�h\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\204Dg\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\205L�C\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)