From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 15 Jun 1999 05:35:56 +0000 (+0000)
Subject: (rmail-summary-output-to-rmail-file): Avoid
X-Git-Tag: emacs-20.4~100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f256f63ecd700e10260274337888d7514e392c8e;p=emacs.git

(rmail-summary-output-to-rmail-file): Avoid
multiple output of the last message.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 1e1d23f5351..57b611f7667 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1468,10 +1468,15 @@ starting with the current one.  Deleted messages are skipped and don't count."
    (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)))