From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Aug 1995 21:34:09 +0000 (+0000)
Subject: (rebuild-mail-abbrevs): FILE defaults to visited file.
X-Git-Tag: emacs-19.34~2915
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf3765276562bac7108ff3e7bf362d263adda594;p=emacs.git

(rebuild-mail-abbrevs): FILE defaults to visited file.
---

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))