# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 929424956 0
# Node ID 0e79d47f61d62ea7097de640f383af52f9ee37fb
# Parent  ca34063731fccd72b94e788e05f6b0ddcd66e542
(rmail-summary-output-to-rmail-file): Avoid
multiple output of the last message.

diff -r ca34063731fc -r 0e79d47f61d6 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Tue Jun 15 05:31:37 1999 +0000
+++ b/lisp/mail/rmailsum.el	Tue Jun 15 05:35:56 1999 +0000
@@ -1468,10 +1468,15 @@
    (progn (require 'rmailout)
 	  (list (rmail-output-read-rmail-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))
-      (rmail-summary-goto-msg)
       (with-current-buffer rmail-buffer
 	(let ((rmail-delete-after-output nil))
 	  (rmail-output-to-rmail-file file-name 1)))