Commit 6286e980 authored by Markus Rost's avatar Markus Rost
Browse files

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

message.
parent a9537848
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment