diff options
| author | Richard M. Stallman <[email protected]> | 1995-08-25 21:34:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-08-25 21:34:09 +0000 |
| commit | cf3765276562bac7108ff3e7bf362d263adda594 (patch) | |
| tree | 481cf2c8e84b968736c18c932dad2b13cb54034a /lisp/mail | |
| parent | d270fe6e2d55e44dd901be80cbb484a24eb36bcb (diff) | |
(rebuild-mail-abbrevs): FILE defaults to visited file.
Diffstat (limited to 'lisp/mail')
| -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 685839f950..17d4254755 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.") t)))) (build-mail-abbrevs file)) -(defun rebuild-mail-abbrevs (file) +(defun rebuild-mail-abbrevs (&optional file) "Rebuild all the mail aliases from the given file." (interactive (list (let ((insert-default-directory t) @@ -497,6 +497,8 @@ characters which may be a part of the name of a mail alias.") default-directory (expand-file-name def default-directory) t)))) + (if (null file) + (setq file buffer-file-name)) (setq mail-abbrevs nil) (build-mail-abbrevs file)) |