From: Richard M. Stallman Date: Sat, 23 Feb 2002 17:14:34 +0000 (+0000) Subject: (rmail-summary-output): Properly advance X-Git-Tag: ttn-vms-21-2-B4~16518 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a7a27be27659c78b8f5be00c1535dac8127e51a;p=emacs.git (rmail-summary-output): Properly advance to next message, by calling rmail-summary-goto-msg. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 14be631c2e3..5971d4414b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2002-02-23 Richard M. Stallman + + * mail/rmailsum.el (rmail-summary-output): Properly advance + to next message, by calling rmail-summary-goto-msg. + + * net/browse-url.el (browse-url-galeon): Specify --existing + for an existing window. Use --noraise rather than --no-raise. + Don't use -x. + 2002-02-22 Eli Zaretskii * progmodes/etags.el (find-tag-noselect, find-tag) 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))