;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\fbcQ  b #!b*``Z\\|bb 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 !Rdbh=^ ebmhU|!!cauaeb#!ٕٔ{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=rT # # # OBʕ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))