From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 9 Feb 1995 09:41:18 +0000 (+0000)
Subject: (rmail): Don't set rmail-default-file here.
X-Git-Tag: emacs-19.34~5147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7a39fbe879c1fc7170b51e4fecab3c1991e0459;p=emacs.git

(rmail): Don't set rmail-default-file here.
(rmail-default-file): Init it to ~/xmail.
(rmail-default-rmail-file): Don't call expand-file-name.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index deb5547efb3..82ca8bbbd70 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -165,9 +165,9 @@ Called with region narrowed to the message, including headers.")
 ;; 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-regexp nil)
-(defvar rmail-default-file nil
+(defvar rmail-default-file "~/xmail"
   "*Default file name for \\[rmail-output].")
-(defvar rmail-default-rmail-file (expand-file-name "~/XMAIL")
+(defvar rmail-default-rmail-file "~/XMAIL"
   "*Default file name for \\[rmail-output-to-rmail-file].")
 
 ;;; Regexp matching the delimiter of messages in UNIX mail format
@@ -252,8 +252,6 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Run rmail on RMAIL file: "
 					 nil nil t))))
-  (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