;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:49:03 1995
;;; from file /gd/gnu/emacs/19.0/lisp/rfc822.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/rfc822.el' was compiled for Emacs 19"))


(defalias 'rfc822-bad-address #[(reason) "ŒÀcˆ	ÂÃÄÅ#ƒ e`S]‚ d}ˆÆebˆÈ@ÄÅ#ƒ4 ÉÊ!ˆËcˆÊuˆ‚ A‰„ )ebˆÌÎ±ˆdbˆÏcˆ)Ð ˆÑÒ	`{\"‡" ["_^_" address-start re-search-forward "[,;]" nil t ("\\" "(" ")" "\n") losers search-forward backward-char 1 92 "(Unparsable address -- " reason ":\n	  \"" "\")" rfc822-nuke-whitespace throw address] 6])
(defalias 'rfc822-nuke-whitespace #[(&optional leave-space) "Àm„m g‰ÂUƒ\\ Ãuˆmƒ ÄÅ!‚! g‰ÆU?ƒR ÇÈ!ƒ1 ÉÊ!ˆ‚ 	ÂUƒ= Ë ˆ‚ `dSWƒK ÌÍ!ˆ‚ ÄÎ!ˆ‚ ÏuˆÌÍ!ˆ‚ 	Ð>ƒm `ÑÀwˆ`|ˆ‚ ?†ƒ m†ƒ o†ƒ hÓU†ƒ Óc)‡" [nil ch 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" leave-space 32] 3])
(defalias 'rfc822-looking-at #[(regex &optional leave-space) ";ƒ Á!…. Â•bˆ‚  m?…. gU…. ÃuˆÄ Æ!ˆÈ!ˆ)É‡" [regex looking-at 0 1 match-data tem rfc822-nuke-whitespace leave-space store-match-data t] 2])
(defalias 'rfc822-snarf-word #[nil "gÀUƒ ÁÂ!† ÃÄ!‡ÁÅ!† ÃÆ!‡" [34 rfc822-looking-at "\"\\([^\"\\\n]\\|\\\\.\\|\\\\\n\\)*\"" rfc822-bad-address "Unterminated quoted string" "[^][ --ÿ ()<>@,;:\\\".]+" "Rubbish in address"] 2])
(defalias 'rfc822-snarf-words #[nil "À ˆÁÂ!… À ˆ‚ ‡" [rfc822-snarf-word rfc822-looking-at 46] 2])
(defalias 'rfc822-snarf-subdomain #[nil "gÀUƒ ÁÂ!† ÃÄ!‡ÁÅ!† ÃÆ!‡" [91 rfc822-looking-at "\\[\\([^][\\\n]\\|\\\\.\\|\\\\\n\\)*\\]" rfc822-bad-address "Unterminated domain literal [...]" "[^][ --ÿ ()<>@,;:\\\".]+" "Rubbish in host/domain specification"] 2])
(defalias 'rfc822-snarf-domain #[nil "À ˆÁÂ!… À ˆ‚ ‡" [rfc822-snarf-subdomain rfc822-looking-at 46] 2])
(defalias 'rfc822-snarf-frob-list #[(name separator terminator snarfer &optional return) "ÀÁ‰mƒ ÅÆÇ\"!‚7 É\n!„] É!ƒ, É!„\" ‚: \f„: ÅÆÌ\"!ƒ]  Áƒ \nƒ \n<ƒV Ï\n!¤‚Y \nB‚ Ÿ+‡" [t nil tem list first rfc822-bad-address format "End of addresses in middle of %s" name rfc822-looking-at terminator separator "Gubbish in middle of %s" snarfer return reverse] 4])
(defalias 'rfc822-addresses-1 #[(&optional allow-groups) "`ÀÃÄ�*‡" [0 n address-start address (byte-code "ÀÁÂ\"ƒ( m„ ÀÃ!ƒ( o„ hÄUƒ ÅÆ!ˆÇÈ	Ê•{\"ˆ	bˆÌUƒG ÀÍ!ƒG Î ˆÇÈ	`{\"ˆ‚, ÀÏ!ƒr „Y ÑÒ!ˆ‚d ÊUƒd ÑÓ!ˆÇÈÔÕÃÖ×Â%\"ˆ‚, ÀØ!ƒê `ÂÀÛ!„· m„« gÍUƒ« ÔÜÃÏÝ$ˆÞ ˆÀÍ!„¢ Ñß!ˆÎ ˆà‚· Þ ˆÀÍ!ƒ· Î ˆ`!ÀÛ!ƒâ ÇÈƒÌ ‚Ï SƒÙ !‚Ü !T{\"ˆ‚æ Ñâ!ˆ+‚, ãä!ƒ\"Â%ÊU„o„hÄU„ÄcˆÞ ˆTÀæ!†ãä!‰%„ó )‚, ÊUƒ1ÇÈà\"ˆ‚, ÌUƒCÇÈ	`{\"ˆ‚, ÌVƒQÑç!ˆ‚, m„[gÃUƒbÑè!ˆ‚, Ñé!ˆ‚, " [rfc822-looking-at "[^][ --ÿ ()<>@,;:\\\"]+\\(\\|@[^][ --ÿ ()<>@,;:\\\"]+\\)" t 44 32 delete-char -1 throw address address-start 0 n 1 64 rfc822-snarf-domain 58 allow-groups rfc822-bad-address "A group name may not appear here" "No name for :...; group" rfc822-snarf-frob-list ":...; group" 59 rfc822-addresses-1 60 strip start 62 "<...> address" #[nil "ÀÁ!ƒ	 Â ‡ÃÄ!‡" [rfc822-looking-at 64 rfc822-snarf-domain rfc822-bad-address "Gubbish in route-addr"] 2] rfc822-snarf-words "Malformed <..@..> address" nil end "Unterminated <...> address" looking-at "[^][ --ÿ ()<>@,;:\\.]" again 46 "Missing comma between addresses or badly-formatted address" "Missing comma or route-spec" "Strange character or missing comma"] 9)] 2])
(defalias 'rfc822-addresses #[(header-text) "ÀÁ\n\"ƒ \nÃ”Ã•OC‡ÄÅ!ÇŽŠqˆÈÉ!ˆÊ	\ncˆebˆËÌÊÍ#ƒ8 ÎÏÍ\"ˆ‚( ebˆÐ ˆÊ‰‰m„r `ÔÕ�‰ƒG ;ƒg B‚G Ÿ¤‚G Ÿ.‡" [string-match "\\`[ 	]*\\([^][ --ÿ ()<>@,;:\\\".]+\\)[ 	]*\\'" header-text 1 generate-new-buffer " rfc822" buf ((byte-code "ƒ Á!ˆÁ‡" [buf kill-buffer] 2)) make-local-variable case-fold-search nil re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ 	]" t replace-match "\\1 " rfc822-nuke-whitespace address-start tem list address (byte-code "ÀÁ!ƒ Â‡ÃÄ!ƒ ÂuˆÅÆÇh\"!‡ÈÉ!‡" [rfc822-looking-at 44 nil looking-at "[][ --ÿ@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 4)] 5])
(provide (quote rfc822))
