Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(define-mail-alias): If FROM-MAILRC-FILE, don't call sendmail-sync-aliases.

Browse source 
(build-mail-aliases): Clear mail-aliases to nil at the beginning.
This commit is contained in:
Richard M. Stallman 1998-02-01 23:56:13 +00:00
parent 6c5b39e42f
commit 3c3d71d93c
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/mailalias.el
View file

@ -238,6 +238,9 @@ removed from alias expansions."
"Read mail aliases from personal aliases file and set `mail-aliases'.
By default, this is the file specified by `mail-personal-alias-file'."
(setq file (expand-file-name (or file mail-personal-alias-file)))
;; In case mail-aliases is t, make sure define-mail-alias
;; does not recursively call build-mail-aliases.
(setq mail-aliases nil)
(let ((buffer nil)
(obuf (current-buffer)))
(unwind-protect
@ -302,7 +305,9 @@ 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.
(sendmail-sync-aliases)
;; But not if we are doing that already right now.
(unless from-mailrc-file
(sendmail-sync-aliases))
(if (eq mail-aliases t)
(progn
(setq mail-aliases nil)