# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 835609809 0
# Node ID 3cc16244b779a2ffadac3bbf52cee291b0703d54
# Parent  5c60db96bc321ae8c15ff0ce46f145dee8c1db3f
Resync mail aliases if necessary.

diff -r 5c60db96bc32 -r 3cc16244b779 lisp/mail/mailalias.el
--- a/lisp/mail/mailalias.el	Mon Jun 24 08:06:51 1996 +0000
+++ b/lisp/mail/mailalias.el	Mon Jun 24 09:50:09 1996 +0000
@@ -289,6 +289,13 @@
 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")