Commit 594906dd authored by Karl Heuer's avatar Karl Heuer
Browse files

Require sendmail. Delete redundant defvar.

(expand-mail-aliases, define-mail-alias): Synchronize cached list with file.
parent 408e56e1
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment