;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:39:19 1993
;;; from file /gd/gnu/emacs/19.0/lisp/mailalias.el
;;; emacs version 19.0.506.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defvar mail-aliases t "\
Alias of mail address aliases,
or t meaning should be initialized from `~/.mailrc'.")
(fset 'expand-mail-aliases #[(beg end &optional exclude) "=  b \"#)!!`#!! b`W`x @AZVx Ab # !`Z !\"\"	\"A	ZBBbc! !Q $b$# ! b*``Z\\\"bb!*S \". \")" [mail-aliases t nil build-mail-aliases beg set-marker make-marker end case-fold-search re-search-forward "^\\(to\\|cc\\|bcc\\|resent-to\\|resent-cc\\|resent-bcc\\):" skip-chars-forward " 	" disabled-aliases seplen epos pos end1 beg1 "^[^ 	]" move forward-line 0 skip-chars-backward " 	\n" point-marker "[ 	]*[\n,][ 	]*" match-beginning marker-position buffer-substring string translation assoc exclude "\\b\\(" "\\)\\b" regexp replace-match "" delete-region forward-char] 7 "\
Expand all mail aliases in suitable header fields found between BEG and END.
Suitable header fields are `To', `Cc' and `Bcc' and their `Resent-' variants.
Optional second arg EXCLUDE may be a regular expression defining text to be
removed from alias expansions."])
(fset 'build-mail-aliases #[(&optional file) "	 !pƎ!!q	!/ 	!qed\")c9 	!9 	!dbh=E  ebmj  hUc !!cH !H eb#} # !!!\"!`\" \"`\"\"*m $+" [expand-file-name file "~/.mailrc" nil obuf buffer ((byte-code " !\nq" [buffer kill-buffer obuf] 2)) generate-new-buffer "mailrc" buffer-disable-undo get-file-buffer buffer-substring file-exists-p insert-file-contents 10 newline end-of-line 92 delete-char -1 1 32 forward-char re-search-forward "^a\\(lias\\|\\)[ 	]+" t "^g\\(roup\\|\\)[ 	]+" "[^ 	]+" match-beginning 0 match-end name skip-chars-forward " 	" start define-mail-alias mail-aliases] 5 "\
Read mail aliases from `~/.mailrc' and set `mail-aliases'."])
(fset 'define-mail-alias #[(name definition) "= !  \"\" !O\"3 !OHGSHU_ >_ GSO # !GU TO_ TO!OQ\\_ \" \" BB+" [mail-aliases t nil file-exists-p "~/.mailrc" build-mail-aliases string-match "^[ 	]+" definition match-end 0 "[ 	]+$" match-beginning tem last first (39 34) 1 "[^ 	,][ 	,]+" ", " 3 assoc name rplacd] 6 "\
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 commas." "sDefine mail alias: \nsDefine %s as mail alias for: "])
(provide (quote mailalias))
