procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Require sendmail. Delete redundant defvar.

Browse source 
(expand-mail-aliases, define-mail-alias): Synchronize cached list with file.
This commit is contained in:
Karl Heuer 1994-09-16 22:28:30 +00:00
parent 408e56e14d
commit 594906dd80
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/mailalias.el
View file

@ -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 @@ or t meaning should be initialized from `~/.mailrc'.")
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 @@ DEFINITION can be one or more mail addresses separated by spaces.
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)