diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-15 01:22:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-15 01:22:53 +0000 |
| commit | 779610928c2a13cf4cc53285b87b98db033f31b3 (patch) | |
| tree | 6cf224a6bcb040c37230b2c780f92468b642ce01 | |
| parent | 5f389017a59e5aa1d1ca517a19b0e987d9fe2090 (diff) | |
| download | emacs-779610928c2a13cf4cc53285b87b98db033f31b3.tar.gz | |
Use new names rmail-default-file and rmail-default-rmail-file.
| -rw-r--r-- | lisp/mail/rmailout.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index fa7c921de65..d74e3ad403a 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -59,8 +59,8 @@ starting with the current one. Deleted messages are skipped and don't count." (setq answer (eval (cdr (car tail))))) (setq tail (cdr tail)))) ;; If not suggestions, use same file as last time. - (or answer rmail-last-rmail-file)))) - (list (setq rmail-last-rmail-file + (or answer rmail-default-rmail-file)))) + (list (setq rmail-default-rmail-file (let ((read-file (read-file-name (concat "Output message to Rmail file: (default " @@ -78,7 +78,7 @@ starting with the current one. Deleted messages are skipped and don't count." (or count (setq count 1)) (setq file-name (expand-file-name file-name - (file-name-directory rmail-last-rmail-file))) + (file-name-directory rmail-default-rmail-file))) (if (and (file-readable-p file-name) (not (rmail-file-p file-name))) (rmail-output file-name count) (rmail-maybe-set-message-counters) @@ -183,22 +183,22 @@ to set the `filed' attribute, and not to display a message. The optional fourth argument FROM-GNUS is set when called from GNUS." (interactive - (list (setq rmail-last-file + (list (setq rmail-default-file (read-file-name (concat "Output message to Unix mail file" - (if rmail-last-file + (if rmail-default-file (concat " (default " - (file-name-nondirectory rmail-last-file) + (file-name-nondirectory rmail-default-file) "): " ) ": ")) - (and rmail-last-file (file-name-directory rmail-last-file)) - rmail-last-file)) + (and rmail-default-file (file-name-directory rmail-default-file)) + rmail-default-file)) (prefix-numeric-value current-prefix-arg))) (or count (setq count 1)) (setq file-name (expand-file-name file-name - (and rmail-last-file - (file-name-directory rmail-last-file)))) + (and rmail-default-file + (file-name-directory rmail-default-file)))) (if (and (file-readable-p file-name) (rmail-file-p file-name)) (rmail-output-to-rmail-file file-name count) (let ((orig-count count) |