Mercurial > emacs
changeset 8801:eee06aef6f56
Require sendmail. Delete redundant defvar.
(expand-mail-aliases, define-mail-alias): Synchronize cached list with file.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 16 Sep 1994 22:28:30 +0000 |
| parents | 07c5c4f12d62 |
| children | 7fcda87193a3 |
| files | lisp/mail/mailalias.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailalias.el Fri Sep 16 22:18:10 1994 +0000 +++ b/lisp/mail/mailalias.el Fri Sep 16 22:28:30 1994 +0000 @@ -29,9 +29,7 @@ ;;; Code: -(defvar mail-aliases t - "Alias of mail address aliases, -or t meaning should be initialized from `~/.mailrc'.") +(require 'sendmail) ;; Called from sendmail-send-it, or similar functions, ;; only if some mail aliases are defined. @@ -40,6 +38,7 @@ 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." + (synch-mail-aliases) (if (eq mail-aliases t) (progn (setq mail-aliases nil) (build-mail-aliases))) (goto-char beg) @@ -167,6 +166,7 @@ An address can contain spaces if it is quoted with double-quotes." (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ") ;; Read the defaults first, if we have not done so. + (synch-mail-aliases) (if (eq mail-aliases t) (progn (setq mail-aliases nil)