diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-02-23 17:14:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-02-23 17:14:34 +0000 |
| commit | 5a7a27be27659c78b8f5be00c1535dac8127e51a (patch) | |
| tree | b0a95660bb7bc2c4a727449adca37b426ee19924 /lisp/mail | |
| parent | 042c33d3183e610f9e00128b7dc78c343b1b5e07 (diff) | |
| download | emacs-5a7a27be27659c78b8f5be00c1535dac8127e51a.tar.gz | |
(rmail-summary-output): Properly advance
to next message, by calling rmail-summary-goto-msg.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index c3d686fa72b..ba1bd941678 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1524,8 +1524,14 @@ starting with the current one. Deleted messages are skipped and don't count." (progn (require 'rmailout) (list (rmail-output-read-file-name) (prefix-numeric-value current-prefix-arg)))) - (let ((i 0)) - (while (< i n) + (let ((i 0) prev-msg) + (while + (and (< i n) + (progn (rmail-summary-goto-msg) + (not (eq prev-msg + (setq prev-msg + (with-current-buffer rmail-buffer + rmail-current-message)))))) (setq i (1+ i)) (with-current-buffer rmail-buffer (let ((rmail-delete-after-output nil)) |