Resync mail aliases if necessary.

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index ba884e75ab09db43fe7d789d3479bd7db079ba6e..0969f50ae2985f3aef270d12b2e3a450ca4e04ae 100644 (file)
--- 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")