From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 5 May 1994 05:08:57 +0000 (+0000)
Subject: (rmail-output-menu): Set rmail-default-rmail-file.
X-Git-Tag: emacs-19.34~8521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc591caf15cf52a98fb8edae08ded4a79b8b4298;p=emacs.git

(rmail-output-menu): Set rmail-default-rmail-file.
(rmail-output-to-rmail-file): Doc fix.
---

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