;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Wed Jul  7 16:47:14 1993
;;; from file /gd/gnu/emacs/19.0/lisp/mail-utils.el
;;; emacs version 19.16.5.
;;; 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 "This file was compiled for Emacs 19"))

(require (quote lisp-mode))
(defvar mail-use-rfc822 nil "\
*If non-nil, use a full, hairy RFC822 parser on mail addresses.
Otherwise, (the default) use a smaller, somewhat faster, and
often correct parser.")
(defalias 'mail-string-delete #[(string start end) "„	 	ÂO‡	ÂO	ÄOP‡" [end string 0 start nil] 4 "\
Returns a string containing all of STRING except the part
from START (inclusive) to END (exclusive)."])
(defalias 'mail-strip-quoted-names #[(address) "??…ß 	ƒ ÂÃ!ˆÄÅÆ!Ç#‡È	ÊË\"ˆÌ•ÊÍÌ•#OÊÎ\"ƒk ŠÏÐ!qˆÑ ˆcˆÒ!ˆÔbˆÕÖÈ×#ƒa ØuˆÙÈxˆ`ŠÈÚÛˆ`)|ˆ‚D Ü Ñ ˆ)‚€ ÊÝ\"‰	ƒ€ Þ	Ì•#‚k Ì	Êß	#‰	ƒ² GÌ•Vƒ§ Ì•HàUƒ§ Ì•	‚ƒ Þ	Ì•#‚ƒ Êá\"‰	ƒÝ Ô•â”Ì•#$%Þ#S##Þ%$#+‚² )‡" [address mail-use-rfc822 require rfc822 mapconcat identity rfc822-addresses ", " nil pos string-match "\\`[ 	\n]*" 0 "[ 	\n]*\\'" "[ 	]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" get-buffer-create " *temp*" erase-buffer set-syntax-table lisp-mode-syntax-table 1 search-forward "(" t -1 " 	" (forward-sexp 1) ((error (byte-code "db‡" [] 1))) buffer-string "[ 	]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" mail-string-delete "[ 	]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ 	\n]*" 64 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)" 2 close junk-end junk-beg] 6 "\
Delete comments and quoted strings in an address list ADDRESS.
Also delete leading/trailing whitespace and replace FOO <BAR> with just BAR.
Return a modified address list."])
(byte-code "ÀÁ!ƒ\n 	„ ÂÀ‡" [boundp rmail-default-dont-reply-to-names "info-"] 2)
(defalias 'rmail-dont-reply-to #[(userids) "„ 	ƒ 	ÂP‚ ÃÄÅ !ÆPPÇÈQÉÊ‰Ï\"‰ƒ_ ÑVƒ> TÏÒÑ•#ƒM Ñ•‚P GÓ#‚& ÏÔ\"‰ƒr ÑOÏÕ\"ƒƒ Ñ•ÊO‚… ,‡" [rmail-dont-reply-to-names rmail-default-dont-reply-to-names "\\|" "" regexp-quote user-original-login-name "\\>" "\\(^\\|,\\)[ 	\n]*\\([^,\n]*!\\|\\)\\(" "\\)" t nil epos pos case-fold-search match string-match userids 0 "[ 	\n,]+" mail-string-delete "[ ,	\n]*\\'" "\\s *"] 4 "\
Returns string of mail addresses USERIDS sans any recipients
that start with matches for `rmail-dont-reply-to-names'.
Usenet paths ending in an element that matches are removed also."])
(defalias 'mail-fetch-field #[(field-name &optional last all) "ŠebˆÀÁÂ!ÄQebˆƒT È	ÊËÀ#ƒF `ÍyˆÎÏ!„$ 	‰È˜ƒ9 È‚: Ð`S{Q	)‚ 	È˜?…P 	)‚{ ÊËÀ#…{ ƒi ÊËÀ#„a `ÍyˆÎÏ!„l `S{)+‡" [t "^" regexp-quote field-name "[ 	]*:[ 	]*" name case-fold-search all "" value re-search-forward nil opoint 1 looking-at "[ 	]" ", " last] 4 "\
Return the value of the header field FIELD-NAME.
The buffer is expected to be narrowed to just the headers of the message.
If second arg LAST is non-nil, use the last such field if there are several.
If third arg ALL is non-nil, concatenate all such fields with commas between."])
(byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"ˆÉÊ!‡" [defalias mail-parse-comma-list #[nil "À‰ÃÀwˆm„' `ÄÀwˆÃÀxˆ	`{\nBÄÀwˆÅÀwˆ‚ \n*‡" [nil beg accumulated " " "^," ", "] 2] mail-comma-list-regexp #[(labels) "ÀÂÃ\"†\n Å	ÂÆ	#OÂÇ\"‰ƒ, Å	OÈÅ•ÀOQ‚ )‡" [nil pos string-match "[^ 	]" labels 0 "[ 	]*$" "[ 	]*,[ 	]*" "\\|"] 6] mail-rfc822-time-zone #[(time) "À	!@† ÂÄ!Å¥ÇÈÂWƒ É‚ ÊÅ¥Å¦$*‡" [current-time-zone time 0 sec abs 60 absmin format "%c%02d%02d" 45 43] 6] mail-rfc822-date #[nil "À Â	!ÄÅ\"ˆÆ”Æ•OÇÈ”È•OÇÉ”É•OÇÊ”Ê•OÇË	!°	*‡" [current-time time current-time-string s string-match "[^ ]+ +\\([^ ]+\\) +\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)" 2 " " 1 4 3 mail-rfc822-time-zone] 10] provide mail-utils] 3)