(rmail-summary-output-to-rmail-file):

Simplify.  Make prefix arg work right.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 7bb42cb2f3a59a716e4f4969da62a0d57a1d7cb8..df01543f2d1deed1245c00196a142f786c4efd87 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1460,16 +1460,15 @@ see the documentation of `rmail-resend'."
   "Append the current message to an Rmail file named FILE-NAME.
 If the file does not exist, ask if it should be created.
 If file is being visited, the message is appended to the Emacs
-buffer visiting that file."
+buffer visiting that file.
+
+A prefix argument N says to output N consecutive messages
+starting with the current one.  Deleted messages are skipped and don't count."
   (interactive)
-  (save-excursion
-    (set-buffer rmail-buffer)
-    (let ((rmail-delete-after-output nil))
-      (if file-name
-         (rmail-output-to-rmail-file file-name)
-       (call-interactively 'rmail-output-to-rmail-file))))
-  (if rmail-delete-after-output
-      (rmail-summary-delete-forward nil)))
+  (with-current-buffer rmail-buffer
+    (if file-name
+       (rmail-output-to-rmail-file file-name)
+      (call-interactively 'rmail-output-to-rmail-file))))
 
 (defun rmail-summary-output-menu ()
   "Output current message to another Rmail file, chosen with a menu.