Mercurial > emacs
comparison lisp/mail/rmailout.el @ 23830:e532573faa40
(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 | 3bb7a66a51a8 |
| children | 7da919fff9be |
comparison
equal
deleted
inserted
replaced
| 23829:422bd4826b2c | 23830:e532573faa40 |
|---|---|
| 176 (rmail-delete-unwanted-fields))))))) | 176 (rmail-delete-unwanted-fields))))))) |
| 177 (rmail-set-attribute "filed" t)) | 177 (rmail-set-attribute "filed" t)) |
| 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 |
| 187 "*Regexp describing fields to exclude when outputting a message to a file." | 187 "*Regexp describing fields to exclude when outputting a message to a file." |
| 188 :type '(choice (const :tag "None" nil) | 188 :type '(choice (const :tag "None" nil) |