;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:32:49 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/mailalias.el ;;; emacs version 19.15.16. ;;; 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 "This file 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) "=  b “#)w`‰   #yx b`W` w @AZVw A a#Ӕ ` Z !   { \"\"A ZB B bcQ b#!b*`` Z\\|b  b u*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) " !pƎ! ! q !. !qed{)c8 !8 !dbh=D ebmhhUb!!cGuGeb#{#!ٕٔ{w``{\"*k+" [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 file-exists-p insert-file-contents 10 newline 92 delete-char -1 1 32 re-search-forward "^a\\(lias\\|\\)[ ]+" t "^g\\(roup\\|\\)[ ]+" "[^ ]+" 0 name " " start define-mail-alias mail-aliases] 4 "\ Read mail aliases from `~/.mailrc' and set `mail-aliases'."]) (defalias 'define-mail-alias #[(name definition) "=! \"!ɕO\"1ɉOHGSH    U] >]GSO # ɕGU TO] TOɕOQ \\ ]\"  BB+" [mail-aliases t nil file-exists-p "~/.mailrc" build-mail-aliases string-match "\\`[ \n,]+" definition 0 "[ \n,]+\\'" tem last first (39 34) 1 "[^ ,][ ,]+" ", " 3 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 commas." "sDefine mail alias: \nsDefine %s as mail alias for: "]) (provide (quote mailalias))