;ELC   
;;; Compiled by rms@psilocin.gnu.org on Sat Mar 21 01:24:35 1998
;;; from file /gd/gnu/emacs/lisp/mail/rfc822.el
;;; in Emacs version 20.2.83.3
;;; with bytecomp version 2.38
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(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) "ЊГc€ДЕЖЗ#ѓ e`S]‚ d}€Иeb€Й	@ЖЗ#ѓ2 КЛ!€Мc€Лu€‚ 	A‰„ )eb€Н\nО±€db€Пc€)Р €СТ`{\"‡" [address-start losers reason "_^_" re-search-forward "[,;]" nil t ("\\" "(" ")" "\n") search-forward backward-char 1 92 "(Unparsable address -- " ": \"" "\")" 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)‡" [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) ";ѓ Г!…- Д•b€‚  m?…- gU…- Еu€Ж З\n!€И	!€)Й‡" [regex tem leave-space looking-at 0 1 match-data rfc822-nuke-whitespace set-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ѓ ИЙК\"!‚2 Л\f!„X Л!ѓ( Л!„ ‚5 \n„5 ИЙМ\"!ѓX  Зѓ ѓ <ѓQ Н!	¤‚T 	B‚ 	џ+‡" [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) "`ВГДЌ*‡" [n address-start 0 address (byte-code "ЖЗИ\"ѓ' m„ ЖЙ!ѓ' o„ hКUѓ ЛМ!€НОП•{\"€b€	РUѓC ЖС!ѓC Т €НО`{\"€‚* ЖУ!ѓl \n„T ФХ!€‚^ 	ПUѓ^ ФЦ!€НОЧШЙЩЪИ%\"€‚* ЖЫ!ѓЪ `ИЖЬ!„® m„ў gСUѓў ЧЭЙУЮ$€Я €ЖС!„љ Фа!€Т €б‚® Я €ЖС!ѓ® Т €`ЖЬ!ѓТ НОѓА \f‚В \fSѓК ‚М T{\"€‚Ц Фв!€+‚* гд!ѓИ)	ПU„ц o„ц hКU„ц Кc€Я €	TЖе!†гд!‰)„г )‚* 	ПUѓНОб\"€‚* 	РUѓ-НО`{\"€‚* 	РVѓ:Фж!€‚* m„DgЙUѓKФз!€‚* Фи!€‚* " [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 "АБ!ѓ	 В ‡ГД!‡" [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) "ЖЗ\"ѓ И”И•OC‡ЙК!ЛЋЉ	q€МВ!€Нc€eb€ОПНР#ѓ5 СТР\"€‚% eb€У €Н‰‰m„c `ФХЌ‰ѓA \f;ѓ[ \fB‚A \fџ¤‚A џ.‡" [header-text buf case-fold-search address-start tem list string-match "\\`[ 	]*\\([^][ - ()<>@,;:\\\".]+\\)[ 	]*\\'" 1 generate-new-buffer " rfc822" ((byte-code "ѓ Б!€Б‡" [buf kill-buffer] 2)) make-local-variable nil re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ 	]" t replace-match "\\1 " rfc822-nuke-whitespace 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 'rfc822)