diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-08 15:48:11 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-08 15:48:11 +0000 |
| commit | 09ec5b272e6bf04c8b38de97a7c09a38d201122d (patch) | |
| tree | 20a43f520182e82e9ad2ae3b84e984d80e9829ef /lisp | |
| parent | 6286e9803af34606ab46d9f71aaaffbb20ee4c4e (diff) | |
| download | emacs-09ec5b272e6bf04c8b38de97a7c09a38d201122d.tar.gz emacs-09ec5b272e6bf04c8b38de97a7c09a38d201122d.tar.bz2 emacs-09ec5b272e6bf04c8b38de97a7c09a38d201122d.zip | |
(rmail-summary-output): Simplify. Make prefix arg work right.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailsum.el | 17 |
1 files 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))) |