From 6286e9803af34606ab46d9f71aaaffbb20ee4c4e Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Tue, 8 Dec 1998 15:34:14 +0000 Subject: [PATCH] (rmail-output-to-rmail-file): Avoid multiple output of last undeleted message. --- lisp/mail/rmailout.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2