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 | 9a03a6f46c4a72e3c6d7f04963ffe419f486d169 (patch) | |
| tree | afb9ce2ccfbbc7baff9e6f32d0cffa9664c82e75 /lisp/mail/mailalias.el | |
| parent | fd23afbeb406a28f97f5cd6cb95fd7db4c4bfe5d (diff) | |
| download | emacs-9a03a6f46c4a72e3c6d7f04963ffe419f486d169.tar.gz | |
Resync mail aliases if necessary.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -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") |