mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(rmail-summary-output): Properly advance

Browse Source 
to next message, by calling rmail-summary-goto-msg.
This commit is contained in:
Richard M. Stallman 2002-02-23 17:14:34 +00:00
parent 042c33d318
commit 5a7a27be27
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2002-02-23 Richard M. Stallman <rms@gnu.org>
* mail/rmailsum.el (rmail-summary-output): Properly advance
to next message, by calling rmail-summary-goto-msg.
* net/browse-url.el (browse-url-galeon): Specify --existing
for an existing window. Use --noraise rather than --no-raise.
Don't use -x.
2002-02-22 Eli Zaretskii <eliz@is.elta.co.il>
* progmodes/etags.el (find-tag-noselect, find-tag)

10
lisp/mail/rmailsum.el
View File

@ -1524,8 +1524,14 @@ starting with the current one. Deleted messages are skipped and don't count."
(progn (require 'rmailout)
(list (rmail-output-read-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))
(with-current-buffer rmail-buffer
(let ((rmail-delete-after-output nil))