From 9a03a6f46c4a72e3c6d7f04963ffe419f486d169 Mon Sep 17 00:00:00 2001
From: Simon Marshall <simon@gnu.org>
Date: Mon, 24 Jun 1996 09:50:09 +0000
Subject: [PATCH] Resync mail aliases if necessary.

---
 lisp/mail/mailalias.el | 7 +++++++
 1 file changed, 7 insertions(+)

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")
-- 
2.39.2