Mercurial > emacs

changeset 15501:3cc16244b779

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Resync mail aliases if necessary.
author Simon Marshall <simon@gnu.org>
date Mon, 24 Jun 1996 09:50:09 +0000
parents 5c60db96bc32
children 5053b03d18cb
files lisp/mail/mailalias.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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")