# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768114537 0
# Node ID e30a34bfc5369a016281f6546648b3b73ec27484
# Parent  18bc27b9723619307be70e0c6bfce63923b751b9
(rmail-output-menu): Set rmail-default-rmail-file.
(rmail-output-to-rmail-file): Doc fix.

diff -r 18bc27b97236 -r e30a34bfc536 lisp/mail/rmailout.el
--- 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