# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1014484467 0
# Node ID 21de4f4cda237e2f9b4347e953cfb4cde43df23a
# Parent  a480fc3589d1b373224fe6f62da281cd607db5b5
(rmail-summary-output): Properly advance
to next message, by calling rmail-summary-goto-msg.

diff -r a480fc3589d1 -r 21de4f4cda23 lisp/mail/rmailsum.el
--- 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))