diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-08 15:34:14 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-08 15:34:14 +0000 |
| commit | 6286e9803af34606ab46d9f71aaaffbb20ee4c4e (patch) | |
| tree | a4c9c15757f9fefecdda3a72eacde65f3aa41a08 /lisp/mail | |
| parent | a953784890260e2504b7dcb9bebf07a2469c8615 (diff) | |
| download | emacs-6286e9803af34606ab46d9f71aaaffbb20ee4c4e.tar.gz | |
(rmail-output-to-rmail-file): Avoid multiple output of last undeleted
message.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailout.el | 4 |
1 files 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 |