diff options
| author | Richard M. Stallman | 1995-08-25 21:34:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-25 21:34:09 +0000 |
| commit | cf3765276562bac7108ff3e7bf362d263adda594 (patch) | |
| tree | 481cf2c8e84b968736c18c932dad2b13cb54034a | |
| parent | d270fe6e2d55e44dd901be80cbb484a24eb36bcb (diff) | |
| download | emacs-cf3765276562bac7108ff3e7bf362d263adda594.tar.gz emacs-cf3765276562bac7108ff3e7bf362d263adda594.zip | |
(rebuild-mail-abbrevs): FILE defaults to visited file.
| -rw-r--r-- | lisp/mail/mailabbrev.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 685839f9506..17d42547552 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -486,7 +486,7 @@ characters which may be a part of the name of a mail alias.") | |||
| 486 | t)))) | 486 | t)))) |
| 487 | (build-mail-abbrevs file)) | 487 | (build-mail-abbrevs file)) |
| 488 | 488 | ||
| 489 | (defun rebuild-mail-abbrevs (file) | 489 | (defun rebuild-mail-abbrevs (&optional file) |
| 490 | "Rebuild all the mail aliases from the given file." | 490 | "Rebuild all the mail aliases from the given file." |
| 491 | (interactive (list | 491 | (interactive (list |
| 492 | (let ((insert-default-directory t) | 492 | (let ((insert-default-directory t) |
| @@ -497,6 +497,8 @@ characters which may be a part of the name of a mail alias.") | |||
| 497 | default-directory | 497 | default-directory |
| 498 | (expand-file-name def default-directory) | 498 | (expand-file-name def default-directory) |
| 499 | t)))) | 499 | t)))) |
| 500 | (if (null file) | ||
| 501 | (setq file buffer-file-name)) | ||
| 500 | (setq mail-abbrevs nil) | 502 | (setq mail-abbrevs nil) |
| 501 | (build-mail-abbrevs file)) | 503 | (build-mail-abbrevs file)) |
| 502 | 504 | ||