From a7a39fbe879c1fc7170b51e4fecab3c1991e0459 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 9 Feb 1995 09:41:18 +0000 Subject: [PATCH] (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. --- lisp/mail/rmail.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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 -- 2.39.5