diff options
| author | Simon Marshall | 1996-06-24 09:50:09 +0000 |
|---|---|---|
| committer | Simon Marshall | 1996-06-24 09:50:09 +0000 |
| commit | 9a03a6f46c4a72e3c6d7f04963ffe419f486d169 (patch) | |
| tree | afb9ce2ccfbbc7baff9e6f32d0cffa9664c82e75 /lisp | |
| parent | fd23afbeb406a28f97f5cd6cb95fd7db4c4bfe5d (diff) | |
| download | emacs-9a03a6f46c4a72e3c6d7f04963ffe419f486d169.tar.gz emacs-9a03a6f46c4a72e3c6d7f04963ffe419f486d169.zip | |
Resync mail aliases if necessary.
Diffstat (limited to 'lisp')
| -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." | |||
| 289 | Completable headers are according to `mail-complete-alist'. If none matches | 289 | Completable headers are according to `mail-complete-alist'. If none matches |
| 290 | current header, calls `mail-complete-function' and passes prefix arg if any." | 290 | current header, calls `mail-complete-function' and passes prefix arg if any." |
| 291 | (interactive "P") | 291 | (interactive "P") |
| 292 | ;; Read the defaults first, if we have not done so. | ||
| 293 | (sendmail-sync-aliases) | ||
| 294 | (if (eq mail-aliases t) | ||
| 295 | (progn | ||
| 296 | (setq mail-aliases nil) | ||
| 297 | (if (file-exists-p mail-personal-alias-file) | ||
| 298 | (build-mail-aliases)))) | ||
| 292 | (let ((list mail-complete-alist)) | 299 | (let ((list mail-complete-alist)) |
| 293 | (if (and (save-excursion (search-forward | 300 | (if (and (save-excursion (search-forward |
| 294 | (concat "\n" mail-header-separator "\n") | 301 | (concat "\n" mail-header-separator "\n") |