Mercurial > emacs
changeset 23221:8d1c55a12c94
(rmail-summary-output-to-rmail-file):
Simplify. Make prefix arg work right.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 10 Sep 1998 15:35:34 +0000 |
| parents | 8804b71603c6 |
| children | dbd281c0a5bf |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 8 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Thu Sep 10 15:26:44 1998 +0000 +++ b/lisp/mail/rmailsum.el Thu Sep 10 15:35:34 1998 +0000 @@ -1460,16 +1460,15 @@ "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.