Mercurial > emacs

changeset 12945:14e16370799d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rebuild-mail-abbrevs): FILE defaults to visited file.
author Richard M. Stallman <rms@gnu.org>
date Fri, 25 Aug 1995 21:34:09 +0000
parents b10874fddeb3
children 271dc8563a91
files lisp/mail/mailabbrev.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))