Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 43481:21de4f4cda23
(rmail-summary-output): Properly advance
to next message, by calling rmail-summary-goto-msg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Feb 2002 17:14:27 +0000 |
| parents | f6289227c572 |
| children | d38c5a87f842 |
comparison
equal
deleted
inserted
replaced
| 43480:a480fc3589d1 | 43481:21de4f4cda23 |
|---|---|
| 1522 starting with the current one. Deleted messages are skipped and don't count." | 1522 starting with the current one. Deleted messages are skipped and don't count." |
| 1523 (interactive | 1523 (interactive |
| 1524 (progn (require 'rmailout) | 1524 (progn (require 'rmailout) |
| 1525 (list (rmail-output-read-file-name) | 1525 (list (rmail-output-read-file-name) |
| 1526 (prefix-numeric-value current-prefix-arg)))) | 1526 (prefix-numeric-value current-prefix-arg)))) |
| 1527 (let ((i 0)) | 1527 (let ((i 0) prev-msg) |
| 1528 (while (< i n) | 1528 (while |
| 1529 (and (< i n) | |
| 1530 (progn (rmail-summary-goto-msg) | |
| 1531 (not (eq prev-msg | |
| 1532 (setq prev-msg | |
| 1533 (with-current-buffer rmail-buffer | |
| 1534 rmail-current-message)))))) | |
| 1529 (setq i (1+ i)) | 1535 (setq i (1+ i)) |
| 1530 (with-current-buffer rmail-buffer | 1536 (with-current-buffer rmail-buffer |
| 1531 (let ((rmail-delete-after-output nil)) | 1537 (let ((rmail-delete-after-output nil)) |
| 1532 (rmail-output file-name 1))) | 1538 (rmail-output file-name 1))) |
| 1533 (if rmail-delete-after-output | 1539 (if rmail-delete-after-output |