diff options
| author | Richard M. Stallman <[email protected]> | 1994-05-19 20:42:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-05-19 20:42:23 +0000 |
| commit | f670fcba48f520de2fe5b18a064eb0e9dcd4705a (patch) | |
| tree | 80bd367d15de131bdceb88ef296341d43b5424fb /lisp/gnus.el | |
| parent | 8dca31790bdd5f46e310523340ba73c05aa1f6c9 (diff) | |
rmail-default-file renamed from rmail-last-file,
rmail-default-rmail-file renamed from rmail-last-...
Diffstat (limited to 'lisp/gnus.el')
| -rw-r--r-- | lisp/gnus.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index ba8a1518d5..ae1bb03a0f 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 |