Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 24849:0e79d47f61d6
(rmail-summary-output-to-rmail-file): Avoid
multiple output of the last message.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 15 Jun 1999 05:35:56 +0000 |
| parents | e8e1a22961da |
| children | db949b28b6b4 |
comparison
equal
deleted
inserted
replaced
| 24848:ca34063731fc | 24849:0e79d47f61d6 |
|---|---|
| 1466 starting with the current one. Deleted messages are skipped and don't count." | 1466 starting with the current one. Deleted messages are skipped and don't count." |
| 1467 (interactive | 1467 (interactive |
| 1468 (progn (require 'rmailout) | 1468 (progn (require 'rmailout) |
| 1469 (list (rmail-output-read-rmail-file-name) | 1469 (list (rmail-output-read-rmail-file-name) |
| 1470 (prefix-numeric-value current-prefix-arg)))) | 1470 (prefix-numeric-value current-prefix-arg)))) |
| 1471 (let ((i 0)) | 1471 (let ((i 0) prev-msg) |
| 1472 (while (< i n) | 1472 (while |
| 1473 (and (< i n) | |
| 1474 (progn (rmail-summary-goto-msg) | |
| 1475 (not (eq prev-msg | |
| 1476 (setq prev-msg | |
| 1477 (with-current-buffer rmail-buffer | |
| 1478 rmail-current-message)))))) | |
| 1473 (setq i (1+ i)) | 1479 (setq i (1+ i)) |
| 1474 (rmail-summary-goto-msg) | |
| 1475 (with-current-buffer rmail-buffer | 1480 (with-current-buffer rmail-buffer |
| 1476 (let ((rmail-delete-after-output nil)) | 1481 (let ((rmail-delete-after-output nil)) |
| 1477 (rmail-output-to-rmail-file file-name 1))) | 1482 (rmail-output-to-rmail-file file-name 1))) |
| 1478 (if rmail-delete-after-output | 1483 (if rmail-delete-after-output |
| 1479 (rmail-summary-delete-forward nil) | 1484 (rmail-summary-delete-forward nil) |