diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-15 01:23:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-15 01:23:28 +0000 |
| commit | c08f13bf4e8323978c92c3285052b1f2340502c0 (patch) | |
| tree | ecfc561e18581ed2048cf98d1a84fb4fbbece2c6 | |
| parent | fdc9edf23929655709bc007dbf66cfe8fe2f405b (diff) | |
| download | emacs-c08f13bf4e8323978c92c3285052b1f2340502c0.tar.gz | |
(rmail-default-file): Renamed from rmail-last-file.
(rmail-default-rmail-file): Renamed from rmail-last-...
| -rw-r--r-- | lisp/mail/rmail.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index db8f4bbe49e..28ed6525200 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -128,9 +128,11 @@ Called with region narrowed to unformatted header.") (defvar rmail-last-label nil) ;; 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-file nil) (defvar rmail-last-regexp nil) -(defvar rmail-last-rmail-file (expand-file-name "~/XMAIL")) +(defvar rmail-default-file nil + "*Default file name for \\[rmail-output].") +(defvar rmail-default-rmail-file (expand-file-name "~/XMAIL") + "*Default file name for \\[rmail-output-to-rmail-file].") ;;; Regexp matching the delimiter of messages in UNIX mail format ;;; (UNIX From lines), minus the initial ^. Note that if you change @@ -205,8 +207,8 @@ have a chance to specify a file name with the minibuffer." (interactive (if current-prefix-arg (list (read-file-name "Run rmail on RMAIL file: " nil nil t)))) - (or rmail-last-file - (setq rmail-last-file (expand-file-name "~/xmail"))) + (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 |