Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : rfc822.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:22 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/rfc822.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rfc822.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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\216\212	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.\207" [header-text buf case-fold-search rfc822-address-start tem list 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\204A�`\304\305!\203�\306\202(�\307\310!\203%�\306u\210\311\312\313h\"!\202(�\314\315!\211\203�	;\2039�	\nB\202�	\237\n\244\202�\n\237\207" [rfc822-address-start tem list rfc822-nuke-whitespace rfc822-looking-at 44 nil looking-at "[][�-@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 5)] 4])
(provide 'rfc822)

${this.title}

Code Editor : rfc822.elc