;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 !cu A )ebαdbc) 	`{\"" ["_^_" 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) "mm gU\\ um !! gU?R !1 ! 	U=   `dSWK ! ! u! 	>m `w`| ? m o hU 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 "gU ! !! !" [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 "gU ! !! !" [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 hU !	ʕ{\"	bUG !G  	`{\", !r Y !d Ud !%\", ! `! m gU $ ! !   !  `!!   S ! !T{\" !+, !\"%UohUc T!!% ), U1\", UC	`{\", VQ!, m[gUb!, !, " [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!	\nceb#8 \"( eb ʉmr `Ս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 "! ! uh\"!!" [rfc822-looking-at 44 nil looking-at "[][ --@;:\\.>)]" rfc822-bad-address format "Strange character \\%c found" rfc822-addresses-1 t] 4)] 5])
(provide (quote rfc822))
