;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:49:48 1993
;;; from file /era/era-0.80/editor/lisp/utils/rfc822.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; 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 "This file was compiled for Emacs 19."))

(byte-code "ÀÁ!ˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓMˆÔÕM‡" [provide rfc822 rfc822-bad-address #[(reason) "ŒÀcˆ	ÂÃÄÅ#«†e`S]ªd}ˆÆebˆÈ@ÄÅ#«ŒÉÊ!ˆËcˆÊuˆªk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] rfc822-nuke-whitespace #[(&optional leave-space) "Àm¬Ùg‰ÂU«ÃÃuˆm«…ÄÅ!ª†g‰ÆU?«§ÇÈ!«†ÉÊ!ˆªe	ÂU«…Ë ˆª[`dSW«†ÌÍ!ˆªOÄÎ!ˆªIÏuˆÌÍ!ˆª3	Ð>«Š`ÑÀ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] 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] rfc822-snarf-word #[nil "gÀU«‰ÁÂ!®ŒÃÄ!‡ÁÅ!®ƒÃÆ!‡" [34 rfc822-looking-at "\"\\([^\"\\\n]\\|\\\\.\\|\\\\\n\\)*\"" rfc822-bad-address "Unterminated quoted string" "[^][ --ÿ ()<>@,;:\\\".]+" "Rubbish in address"] 2] rfc822-snarf-words #[nil "À ˆÁÂ!­…À ˆªv‡" [rfc822-snarf-word rfc822-looking-at 46] 2] rfc822-snarf-subdomain #[nil "gÀU«‰ÁÂ!®ŒÃÄ!‡ÁÅ!®ƒÃÆ!‡" [91 rfc822-looking-at "\\[\\([^][\\\n]\\|\\\\.\\|\\\\\n\\)*\\]" rfc822-bad-address "Unterminated domain literal [...]" "[^][ --ÿ ()<>@,;:\\\".]+" "Rubbish in host/domain specification"] 2] rfc822-snarf-domain #[nil "À ˆÁÂ!­…À ˆªv‡" [rfc822-snarf-subdomain rfc822-looking-at 46] 2] rfc822-snarf-frob-list #[(name separator terminator snarfer &optional return) "ÀÁ‰m«‰ÅÆÇ\"!ªžÉ\n!¬¸É!«ˆÉ!¬zªŒ¬‰ÅÆÌ\"!«ž Á«J\n«G\n<«‡Ï\n!¤ªƒ\nBª6Ÿ+‡" [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] rfc822-addresses-1 #[(&optional allow-groups) "`ÀÃÄ*‡" [0 n address-start address (byte-code "ÀÁÂ\"«m¬…ÀÃ!«•o¬‰hÄU«„ÅÆ!ˆÇÈ	Ê•{\"ˆ	bˆÌU«’ÀÍ!«Î ˆÇÈ	`{\"ˆªhÀÏ!«¡¬†ÑÒ!ˆªŠÊU«„ÑÓ!ˆÇÈÔÕÃÖ×Â%\"ˆªBÀØ!«æ`ÂÀÛ!¬®m¬ gÍU«›ÔÜÃÏÝ$ˆÞ ˆÀÍ!¬„Ñß!ˆÎ ˆàª‹Þ ˆÀÍ!«ƒÎ ˆ`!ÀÛ!«ÇÈ«„ªƒS«„!ªƒ!T{\"ˆª„Ñâ!ˆ+‚' ãä!«šÊU¬ˆhÄU¬ƒÄcˆÞ ˆT‰‚) ÊU«ˆÇÈà\"ˆ‚' ÌU«‹ÇÈ	`{\"ˆ‚' m¬…ãå!«‡Ñæ!ˆ‚' Ñç!ˆ‚' " [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 "[^][ --ÿ ()<>@,;:\\.]" "," "Missing comma or route-spec" "Strange character or missing comma"] 9)] 2] rfc822-addresses #[(header-text) "ÀÁ\n\"«ˆ\nÃ”Ã•OC‡ÄÅ!ÇŽŠqˆÈÉ!ˆÊ	\ncˆebˆËÌÊÍ#«‡ÎÏÍ\"ˆªrebˆÐ ˆÊ‰ÑÊm¬¯`Ö×‰«–;«‰BªˆŸ¤`U«ƒdbˆ`ªNŸ.‡" [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 -1 address-start p 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]] 2)