# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809386449 0
# Node ID 14e16370799df6af714ed830ca3ba61f7e3885ec
# Parent  b10874fddeb35abcf27072c7d7ee752ab76a04c0
(rebuild-mail-abbrevs): FILE defaults to visited file.

diff -r b10874fddeb3 -r 14e16370799d lisp/mail/mailabbrev.el
--- a/lisp/mail/mailabbrev.el	Fri Aug 25 18:35:32 1995 +0000
+++ b/lisp/mail/mailabbrev.el	Fri Aug 25 21:34:09 1995 +0000
@@ -486,7 +486,7 @@
 		    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 @@
 		   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))