Mercurial > emacs
changeset 43481:21de4f4cda23
(rmail-summary-output): Properly advance
to next message, by calling rmail-summary-goto-msg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Feb 2002 17:14:27 +0000 |
| parents | a480fc3589d1 |
| children | a435fc772003 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat Feb 23 16:36:30 2002 +0000 +++ b/lisp/mail/rmailsum.el Sat Feb 23 17:14:27 2002 +0000 @@ -1524,8 +1524,14 @@ (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))