1524 |
(progn (require 'rmailout) |
(progn (require 'rmailout) |
1525 |
(list (rmail-output-read-file-name) |
(list (rmail-output-read-file-name) |
1526 |
(prefix-numeric-value current-prefix-arg)))) |
(prefix-numeric-value current-prefix-arg)))) |
1527 |
(let ((i 0)) |
(let ((i 0) prev-msg) |
1528 |
(while (< i n) |
(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)))))) |
1535 |
(setq i (1+ i)) |
(setq i (1+ i)) |
1536 |
(with-current-buffer rmail-buffer |
(with-current-buffer rmail-buffer |
1537 |
(let ((rmail-delete-after-output nil)) |
(let ((rmail-delete-after-output nil)) |