From 09ec5b272e6bf04c8b38de97a7c09a38d201122d Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Tue, 8 Dec 1998 15:48:11 +0000 Subject: [PATCH] (rmail-summary-output): Simplify. Make prefix arg work right. --- lisp/mail/rmailsum.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 42cdbbb384f..cd289c0df24 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1483,15 +1483,16 @@ The variables `rmail-secondary-file-directory' and (if rmail-delete-after-output (rmail-summary-delete-forward nil))) -(defun rmail-summary-output () - "Append this message to Unix mail file named FILE-NAME." +(defun rmail-summary-output (&optional file-name) + "Append this message to Unix mail file named FILE-NAME. + +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)) - (call-interactively 'rmail-output))) - (if rmail-delete-after-output - (rmail-summary-delete-forward nil))) + (with-current-buffer rmail-buffer + (if file-name + (rmail-output file-name) + (call-interactively 'rmail-output)))) (defun rmail-summary-construct-io-menu () (let ((files (rmail-find-all-files rmail-secondary-file-directory))) -- 2.39.2