(rmail-summary-output): Properly advance

to next message, by calling rmail-summary-goto-msg.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14be631c2e301d13ef76363f6fb5e57381057cbb..5971d4414b1944ef5ec5700a24856a508a5e3b76 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2002-02-23  Richard M. Stallman  <rms@gnu.org>
+
+       * 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  <eliz@is.elta.co.il>
 
        * progmodes/etags.el (find-tag-noselect, find-tag) 

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index c3d686fa72b9e2fe75e60a73208ea395ef7d4838..ba1bd9416785a7010bd08063ad61d4927e22d139 100644 (file)
--- 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))