From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 8 Dec 1998 15:34:14 +0000 (+0000)
Subject: (rmail-output-to-rmail-file):  Avoid multiple output of last undeleted
X-Git-Tag: emacs-20.4~1119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6286e9803af34606ab46d9f71aaaffbb20ee4c4e;p=emacs.git

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

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index a029f5e192a..4a7e07ecf85 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -178,9 +178,9 @@ starting with the current one.  Deleted messages are skipped and don't count."
 	  (if redelete (rmail-set-attribute "deleted" t))))
       (setq count (1- count))
       (if rmail-delete-after-output
-	  (rmail-delete-forward)
+	  (unless (rmail-delete-forward) (setq count 0))
 	(if (> count 0)
-	    (rmail-next-undeleted-message 1))))))
+	    (unless (rmail-next-undeleted-message 1) (setq count 0)))))))
 
 ;;;###autoload
 (defcustom rmail-fields-not-to-output nil