Mercurial > emacs

changeset 5590:1d9fabec8bec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new names rmail-default-file and rmail-default-rmail-file.
author Richard M. Stallman <rms@gnu.org>
date Sat, 15 Jan 1994 01:22:53 +0000
parents 608926d1bd70
children 55fdac09e7a9
files lisp/mail/rmailout.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Fri Jan 14 20:54:08 1994 +0000
+++ b/lisp/mail/rmailout.el	Sat Jan 15 01:22:53 1994 +0000
@@ -59,8 +59,8 @@
 		     (setq answer (eval (cdr (car tail)))))
 		 (setq tail (cdr tail))))
 	     ;; If not suggestions, use same file as last time.
-	     (or answer rmail-last-rmail-file))))
-     (list (setq rmail-last-rmail-file
+	     (or answer rmail-default-rmail-file))))
+     (list (setq rmail-default-rmail-file
 		 (let ((read-file
 			(read-file-name
 			 (concat "Output message to Rmail file: (default "
@@ -78,7 +78,7 @@
   (or count (setq count 1))
   (setq file-name
 	(expand-file-name file-name
-			  (file-name-directory rmail-last-rmail-file)))
+			  (file-name-directory rmail-default-rmail-file)))
   (if (and (file-readable-p file-name) (not (rmail-file-p file-name)))
       (rmail-output file-name count)
     (rmail-maybe-set-message-counters)
@@ -183,22 +183,22 @@
 
 The optional fourth argument FROM-GNUS is set when called from GNUS."
   (interactive
-   (list (setq rmail-last-file
+   (list (setq rmail-default-file
 	       (read-file-name
 		(concat "Output message to Unix mail file"
-			(if rmail-last-file
+			(if rmail-default-file
 			    (concat " (default "
-				    (file-name-nondirectory rmail-last-file)
+				    (file-name-nondirectory rmail-default-file)
 				    "): " )
 			  ": "))			
-		(and rmail-last-file (file-name-directory rmail-last-file))
-		rmail-last-file))
+		(and rmail-default-file (file-name-directory rmail-default-file))
+		rmail-default-file))
 	 (prefix-numeric-value current-prefix-arg)))
   (or count (setq count 1))
   (setq file-name
 	(expand-file-name file-name
-			  (and rmail-last-file
-			       (file-name-directory rmail-last-file))))
+			  (and rmail-default-file
+			       (file-name-directory rmail-default-file))))
   (if (and (file-readable-p file-name) (rmail-file-p file-name))
       (rmail-output-to-rmail-file file-name count)
     (let ((orig-count count)