diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-06-15 05:35:56 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-06-15 05:35:56 +0000 |
| commit | f256f63ecd700e10260274337888d7514e392c8e (patch) | |
| tree | 6dd3793e16e5837dcc13cbcbf903b23e8ee973e1 /lisp/mail/rmailsum.el | |
| parent | 52f5162108e135998ee0a869b31c0df812a236d2 (diff) | |
| download | emacs-f256f63ecd700e10260274337888d7514e392c8e.tar.gz | |
(rmail-summary-output-to-rmail-file): Avoid
multiple output of the last message.
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 1e1d23f5351..57b611f7667 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1468,10 +1468,15 @@ starting with the current one. Deleted messages are skipped and don't count." (progn (require 'rmailout) (list (rmail-output-read-rmail-file-name) (prefix-numeric-value current-prefix-arg)))) - (let ((i 0)) - (while (< i n) + (let ((i 0) prev-msg) + (while + (and (< i n) + (progn (rmail-summary-goto-msg) + (not (eq prev-msg + (setq prev-msg + (with-current-buffer rmail-buffer + rmail-current-message)))))) (setq i (1+ i)) - (rmail-summary-goto-msg) (with-current-buffer rmail-buffer (let ((rmail-delete-after-output nil)) (rmail-output-to-rmail-file file-name 1))) |