;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Fri May 19 15:53:25 1995
;;; from file /gd/gnu/emacs/19.0/lisp/mailalias.el
;;; emacs version 19.28.92.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")))
    (error "`/gd/gnu/emacs/19.0/lisp/mailalias.el' was compiled for Emacs 19"))


(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#yx b`W`\fz \f@AZVz \fA\fd # Ԕ`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 (#$ . 520)])
#@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 	!qed{)cR 	!? 	!R 	P!P 	!R dbh=^  ebm hU| !!ca ua eb# !ٕٔ{ycy É 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\\(lias\\|\\)[ 	]+" "^g\\(roup\\|\\)[ 	]+" "[^ 	]+" name " 	" start define-mail-alias mail-aliases] 5 (#$ . 1595)])
#@268 Define NAME as a mail alias that translates to DEFINITION.
This means that sending a message to NAME will actually send to DEFINITION.
DEFINITION can be one or more mail addresses 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 (#$ . 2451) "sDefine mail alias: \nsDefine %s as mail alias for: "])
(provide (quote mailalias))
