diff options
| author | Simon Marshall <simon@gnu.org> | 1996-06-24 09:50:09 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1996-06-24 09:50:09 +0000 |
| commit | 6122fc0beb243783208ed2f439711170412da2ff (patch) | |
| tree | 7415d9381602bd2e9be3bea058aae9cb3983b862 | |
| parent | 5a778d135a2a6f4e562161929bdd008608a84da0 (diff) | |
| download | emacs-6122fc0beb243783208ed2f439711170412da2ff.tar.gz | |
Resync mail aliases if necessary.
| -rw-r--r-- | lisp/mail/mailalias.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index ba884e75ab0..0969f50ae29 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -289,6 +289,13 @@ if it is quoted with double-quotes." Completable headers are according to `mail-complete-alist'. If none matches current header, calls `mail-complete-function' and passes prefix arg if any." (interactive "P") + ;; Read the defaults first, if we have not done so. + (sendmail-sync-aliases) + (if (eq mail-aliases t) + (progn + (setq mail-aliases nil) + (if (file-exists-p mail-personal-alias-file) + (build-mail-aliases)))) (let ((list mail-complete-alist)) (if (and (save-excursion (search-forward (concat "\n" mail-header-separator "\n") |