Mercurial > emacs
changeset 7332:e30a34bfc536
(rmail-output-menu): Set rmail-default-rmail-file.
(rmail-output-to-rmail-file): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 05 May 1994 05:08:57 +0000 |
| parents | 18bc27b97236 |
| children | 7a0395228878 |
| files | lisp/mail/rmailout.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Thu May 05 04:44:24 1994 +0000 +++ b/lisp/mail/rmailout.el Thu May 05 05:08:57 1994 +0000 @@ -39,12 +39,14 @@ (defun rmail-output-menu (event) "Output current message to another Rmail file, chosen with a menu. +Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. The variables `rmail-secondary-file-directory' and `rmail-secondary-file-regexp' control which files are offered in the menu." (interactive "e") (let ((file-name (rmail-secondary-file-menu event))) (if file-name - (rmail-output-to-rmail-file file-name)))) + (rmail-output-to-rmail-file + (setq rmail-default-rmail-file file-name))))) ;;; There are functions elsewhere in Emacs that use this function; check ;;; them out before you change the calling method. @@ -56,7 +58,7 @@ If the file exists and is not an Rmail file, the message is appended in inbox format. -The default file name comes from `rmail-last-rmail-file', +The default file name comes from `rmail-default-rmail-file', which is updated to the name you use in this command. A prefix argument N says to output N consecutive messages