From dc591caf15cf52a98fb8edae08ded4a79b8b4298 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 5 May 1994 05:08:57 +0000 Subject: [PATCH] (rmail-output-menu): Set rmail-default-rmail-file. (rmail-output-to-rmail-file): Doc fix. --- lisp/mail/rmailout.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 82e665002c9..900e1ba31d7 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -39,12 +39,14 @@ a file name as a string.") (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 @@ buffer visiting that file. 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 -- 2.39.5