# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758597008 0
# Node ID 55fdac09e7a978971875abd26c3b578dd7707b3a
# Parent  1d9fabec8bec738d302e2d1236d7f7ca995a5cb8
(rmail-default-file): Renamed from rmail-last-file.
(rmail-default-rmail-file): Renamed from rmail-last-...

diff -r 1d9fabec8bec -r 55fdac09e7a9 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sat Jan 15 01:22:53 1994 +0000
+++ b/lisp/mail/rmail.el	Sat Jan 15 01:23:28 1994 +0000
@@ -128,9 +128,11 @@
 (defvar rmail-last-label nil)
 ;; Last set of values specified to C-M-n, C-M-p, C-M-s or C-M-l.
 (defvar rmail-last-multi-labels nil)
-(defvar rmail-last-file nil)
 (defvar rmail-last-regexp nil)
-(defvar rmail-last-rmail-file (expand-file-name "~/XMAIL"))
+(defvar rmail-default-file nil
+  "*Default file name for \\[rmail-output].")
+(defvar rmail-default-rmail-file (expand-file-name "~/XMAIL")
+  "*Default file name for \\[rmail-output-to-rmail-file].")
 
 ;;; Regexp matching the delimiter of messages in UNIX mail format
 ;;; (UNIX From lines), minus the initial ^.  Note that if you change
@@ -205,8 +207,8 @@
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Run rmail on RMAIL file: "
 					 nil nil t))))
-  (or rmail-last-file
-      (setq rmail-last-file (expand-file-name "~/xmail")))
+  (or rmail-default-file
+      (setq rmail-default-file (expand-file-name "~/xmail")))
   (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
 	 (existed (get-file-buffer file-name)))
     ;; Like find-file, but in the case where a buffer existed