Mercurial > emacs

changeset 23830:e532573faa40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output-to-rmail-file): Avoid multiple output of last undeleted message.
author Markus Rost <rost@math.uni-bielefeld.de>
date Tue, 08 Dec 1998 15:34:14 +0000
parents 422bd4826b2c
children 67267b9864ed
files lisp/mail/rmailout.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Mon Dec 07 19:27:26 1998 +0000
+++ b/lisp/mail/rmailout.el	Tue Dec 08 15:34:14 1998 +0000
@@ -178,9 +178,9 @@
 	  (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