From f670fcba48f520de2fe5b18a064eb0e9dcd4705a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 19 May 1994 20:42:23 +0000 Subject: [PATCH] rmail-default-file renamed from rmail-last-file, rmail-default-rmail-file renamed from rmail-last-... --- lisp/gnus.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index ba8a1518d54..ae1bb03a0f5 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -769,8 +769,8 @@ the hash tables.") (defvar gnus-article-mode-map nil) (defvar gnus-kill-file-mode-map nil) -(defvar rmail-last-file (expand-file-name "~/XMBOX")) -(defvar rmail-last-rmail-file (expand-file-name "~/XNEWS")) +(defvar rmail-default-file (expand-file-name "~/XMBOX")) +(defvar rmail-default-rmail-file (expand-file-name "~/XNEWS")) ;; Define GNUS Subsystems. (autoload 'gnus-group-post-news "gnuspost" @@ -3719,13 +3719,13 @@ is non-nil. The hook is intended to customize Rmail mode." (message "(No changes need to be saved)") 'no-need-to-write-this-buffer)))) ;; Default file name saving digest messages. - (setq rmail-last-rmail-file + (setq rmail-default-rmail-file (funcall gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-rmail )) - (setq rmail-last-file + (setq rmail-default-file (funcall gnus-mail-save-name gnus-newsgroup-name gnus-current-headers @@ -5259,7 +5259,7 @@ ROT47 will be performed for Japanese text in any case." (require 'rmail) ;; Most of these codes are borrowed from rmailout.el. (setq file-name (expand-file-name file-name)) - (setq rmail-last-rmail-file file-name) + (setq rmail-default-rmail-file file-name) (let ((artbuf (current-buffer)) (tmpbuf (get-buffer-create " *GNUS-output*"))) (save-excursion -- 2.39.5