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 |