Mercurial > hg > xemacs-beta

diff lisp/rmail/rmailout.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children 364816949b59
line wrap: on
line diff
--- a/lisp/rmail/rmailout.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/rmail/rmailout.el	Mon Aug 13 09:02:59 2007 +0200
@@ -62,14 +62,12 @@
 	     ;; If not suggestions, use same file as last time.
 	     (or answer rmail-last-rmail-file))))
      (list (setq rmail-last-rmail-file
-		 (if default-file
-		     (read-file-name
-		      (concat "Output message to Rmail file: (default "
-			      (file-name-nondirectory default-file)
-			      ") ")
-		      (file-name-directory default-file)
-		      default-file)
-		   (read-file-name "Output message to Rmail file: ")))
+		 (read-file-name
+			    (concat "Output message to Rmail file: (default "
+				    (file-name-nondirectory default-file)
+				    ") ")
+			    (file-name-directory default-file)
+			    default-file))
 	   (prefix-numeric-value current-prefix-arg))))
   (or count (setq count 1))
   (setq file-name