mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-output-to-rmail-file): Avoid

Browse source 
multiple output of the last message.
This commit is contained in:
Karl Heuer 1999-06-15 05:35:56 +00:00
parent 52f5162108
commit f256f63ecd
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mail/rmailsum.el
View file

@ -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)))