From cf3765276562bac7108ff3e7bf362d263adda594 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 25 Aug 1995 21:34:09 +0000 Subject: [PATCH] (rebuild-mail-abbrevs): FILE defaults to visited file. --- lisp/mail/mailabbrev.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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.") 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)) -- 2.39.2