;ELC   
;;; compiled by kwzh@kropotkin.gnu.ai.mit.edu on Wed Jul 12 18:09:22 1995
;;; from file /gd/gnu/emacs/19.0/lisp/mailalias.el
;;; emacs version 19.29.1.
;;; 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.28.90")))
    (error "`mailalias.el' was compiled for Emacs 19.29 or later"))


(require (quote sendmail))
#@285 Expand all mail aliases in suitable header fields found between BEG and END.
Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and
their `Resent-' variants.

Optional second arg EXCLUDE may be a regular expression defining text to be
removed from alias expansions.
(defalias 'expand-mail-aliases #[(beg end &optional exclude) "À ˆ	Â=ƒ ÃÄ ˆbˆÆ Ã“ÃÂÉÊÂ#)ƒ ËÃwˆ`Ã‰‰‰‰\fÉÒÓ#ˆÔyˆÕÃxˆÖ bˆ`Wƒ`\fƒz \f@AZVƒz \fA‰\f„d É×Â#ƒ� Ô”`Z‚™ Ø!ÔÃÙ\"Ü\f\"„	Ü	\"A‰ƒ	ZB\fB\fbˆcˆƒø ÞßQÖ  bˆÉ Â#ƒó áâ!ˆ‚â bˆ*``Z\\|ˆbˆ‚bˆuˆ*‚U Ã‰“ˆ.‚ Ã‰“)‡" [sendmail-synch-aliases mail-aliases t nil build-mail-aliases beg make-marker end case-fold-search re-search-forward "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):" " 	" disabled-aliases seplen epos pos end1 beg1 "^[^ 	]" move 0 " 	\n" point-marker "[ 	]*[\n,][ 	]*" marker-position buffer-substring-no-properties string translation assoc exclude "\\b\\(" "\\)\\b" regexp replace-match ""] 7 (#$ . 511)])
#@140 Read mail aliases from personal aliases file and set `mail-aliases'.
By default, this is the file specified by `mail-personal-alias-file'.
(defalias 'build-mail-aliases #[(&optional file) "À	† \n!ÃpÆŽÇÈ!É!ˆqˆ	ƒ© Ê	!ƒ2 ŠÊ	!qˆed{)cˆ‚R Ë	!ƒ? Ì	!ˆ‚R ËÍ	P‰!ƒP Ì	!ˆ‚R ÃdbˆhÎ=„^ Ï ˆebˆm„‚ ÃˆhÐUƒ| ÑÒ!ˆÑÓ!ˆÔcˆ‚a Óuˆ‚a ebˆÕÖÃ×#ƒ£ ÕØ!ˆÙ”Ù•{ÙyˆÚcˆÙyˆ‚ Ã‰„ ebˆÕÛÃ×#ƒÑ ÜÝ!ßÃwˆ` Ãˆá `{×#ˆ*‚¬ \"+‡" [expand-file-name file mail-personal-alias-file nil obuf buffer ((byte-code "ƒ Á!ˆ\nq‡" [buffer kill-buffer obuf] 2)) generate-new-buffer "mailrc" buffer-disable-undo get-file-buffer file-exists-p insert-file-contents "~/" 10 newline 92 delete-char -1 1 32 re-search-forward "^source[ 	]+" t "\\S-+" 0 "# " "^\\(a\\|alias\\|g\\|group\\)[ 	]+\\([^ 	]+\\)" match-string 2 name " 	" start define-mail-alias mail-aliases] 5 (#$ . 1586)])
#@360 Define NAME as a mail alias that translates to DEFINITION.
This means that sending a message to NAME will actually send to DEFINITION.

Normally, the addresses in DEFINITION must be separated by commas.
If FROM-MAILRC-FILE is non-nil, then addresses in DEFINITION 
can be separated by spaces; an address can contain spaces
if it is quoted with double-quotes.
(defalias 'define-mail-alias #[(name definition &optional from-mailrc-file) "À ˆ	Â=ƒ ÃÄ!ƒ Æ ˆÇÈ	\"ƒ$ 	Ê•ÃO	ÇË	\"ƒ4 	Ê‰”O	Ã	Ìš?…> Ê	GÃ‰ƒ© ƒ~ 	HÓ=ƒr TÇÔ	#‚‡ ÇÕ	#‚‡ ÇÖ	#	OB…£ Ê•U?…£ Ê•‰„R ×ØŸÙ#	Ú	\"‰ƒÅ 	¡‚Î 	B	B‰-‡" [sendmail-synch-aliases mail-aliases t nil file-exists-p mail-personal-alias-file build-mail-aliases string-match "\\`[ 	\n,]+" definition 0 "[ 	\n,]+\\'" "" tem end L start result from-mailrc-file 34 "\"[ 	,]*" "[ 	,]+" "[ 	\n,]*,[ 	\n,]*" mapconcat identity ", " assoc name] 6 (#$ . 2436) "sDefine mail alias: \nsDefine %s as mail alias for: "])
(provide (quote mailalias))
