diff options
| author | Markus Rost | 1998-12-08 15:34:14 +0000 |
|---|---|---|
| committer | Markus Rost | 1998-12-08 15:34:14 +0000 |
| commit | 6286e9803af34606ab46d9f71aaaffbb20ee4c4e (patch) | |
| tree | a4c9c15757f9fefecdda3a72eacde65f3aa41a08 | |
| parent | a953784890260e2504b7dcb9bebf07a2469c8615 (diff) | |
| download | emacs-6286e9803af34606ab46d9f71aaaffbb20ee4c4e.tar.gz emacs-6286e9803af34606ab46d9f71aaaffbb20ee4c4e.zip | |
(rmail-output-to-rmail-file): Avoid multiple output of last undeleted
message.
| -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." | |||
| 178 | (if redelete (rmail-set-attribute "deleted" t)))) | 178 | (if redelete (rmail-set-attribute "deleted" t)))) |
| 179 | (setq count (1- count)) | 179 | (setq count (1- count)) |
| 180 | (if rmail-delete-after-output | 180 | (if rmail-delete-after-output |
| 181 | (rmail-delete-forward) | 181 | (unless (rmail-delete-forward) (setq count 0)) |
| 182 | (if (> count 0) | 182 | (if (> count 0) |
| 183 | (rmail-next-undeleted-message 1)))))) | 183 | (unless (rmail-next-undeleted-message 1) (setq count 0))))))) |
| 184 | 184 | ||
| 185 | ;;;###autoload | 185 | ;;;###autoload |
| 186 | (defcustom rmail-fields-not-to-output nil | 186 | (defcustom rmail-fields-not-to-output nil |