Mercurial > emacs

changeset 7560:e63efa2d587c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rmail-default-file renamed from rmail-last-file, rmail-default-rmail-file renamed from rmail-last-...
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 May 1994 20:42:23 +0000
parents c786925f32a5
children 22a4985ddad3
files lisp/=gnus.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gnus.el	Thu May 19 20:25:52 1994 +0000
+++ b/lisp/=gnus.el	Thu May 19 20:42:23 1994 +0000
@@ -769,8 +769,8 @@
 (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 @@
 			 (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 @@
   (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