diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-02-01 23:56:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-02-01 23:56:13 +0000 |
| commit | 3c3d71d93c267ac1ffacddd4e47127fa9e33b11f (patch) | |
| tree | 4b980519a23d02b235fec0617aa6fa1cfc2e73c7 /lisp/mail/mailalias.el | |
| parent | 6c5b39e42f6b3c44a3ca3742b1e48b0e67ef635c (diff) | |
| download | emacs-3c3d71d93c267ac1ffacddd4e47127fa9e33b11f.tar.gz | |
(define-mail-alias): If FROM-MAILRC-FILE, don't call sendmail-sync-aliases.
(build-mail-aliases): Clear mail-aliases to nil at the beginning.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 20d6004b4e2..f4f5df17bba 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -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) |