From 05422245ca50e8ccc05e2fe2b332570e0ede1dc7 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 10 Sep 1998 15:35:34 +0000 Subject: [PATCH] (rmail-summary-output-to-rmail-file): Simplify. Make prefix arg work right. --- lisp/mail/rmailsum.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 7bb42cb2f3a..df01543f2d1 100644 --- 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. -- 2.39.2