;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Aug 9 01:53:03 1994 ;;; from file /home/fsf/rms/e19/lisp/mailalias.el ;;; emacs version 19.25.92.3. ;;; 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 "`/home/fsf/rms/e19/lisp/mailalias.el' was compiled for Emacs 19")) (defvar mail-aliases t "\ Alias of mail address aliases, or t meaning should be initialized from `~/.mailrc'.") (defalias 'expand-mail-aliases #[(beg end &optional exclude) "=  \fb “#)w`‰ \f #yx b`W` w @AZVw A a#Ӕ ` Z\f! \f { \"\"A ZB B bcQ b#!b*`` Z\\|b  b\fu*R‰.‰)" [mail-aliases t nil build-mail-aliases beg make-marker end case-fold-search re-search-forward "^\\(to\\|cc\\|bcc\\|resent-to\\|resent-cc\\|resent-bcc\\):" " " disabled-aliases seplen epos pos end1 beg1 "^[^ ]" move 0 " \n" point-marker "[ ]*[\n,][ ]*" marker-position string translation assoc exclude "\\b\\(" "\\)\\b" regexp replace-match ""] 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."]) (defalias 'build-mail-aliases #[(&optional file) " \f!\f!pȎ!!q != !qed{)c] !J !] P![ !]dbh=i ebmhU!!cluleb#!۔ە{ycy$ʼn(eb##!۔ە{ w`\" \"`{#*$+" [expand-file-name file getenv "MAILRC" "~/.mailrc" 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 "\ Read mail aliases from `~/.mailrc' and set `mail-aliases'."]) (defalias 'define-mail-alias #[(name definition &optional from-mailrc-file) "=! \"!ɕO\"1ɉO˚?;G‰\f {H=oT# # #  OB ɕU?ɕO#\"\f\fBB-" [mail-aliases t nil file-exists-p "~/.mailrc" 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 "\ 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." "sDefine mail alias: \nsDefine %s as mail alias for: "]) (provide (quote mailalias))