Mercurial > emacs
changeset 15658:996e272e9192
(rmail-summary-next-labeled-message)
(rmail-summary-previous-labeled-message):
Call rmail-summary-goto-msg to move point in the summary.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 13 Jul 1996 00:57:31 +0000 |
| parents | 6ad5994053af |
| children | 6e4665e4f807 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat Jul 13 00:55:05 1996 +0000 +++ b/lisp/mail/rmailsum.el Sat Jul 13 00:57:31 1996 +0000 @@ -469,17 +469,23 @@ "Show next message with LABEL. Defaults to last labels used. With prefix argument N moves forward N messages with these labels." (interactive "p\nsMove to next msg with labels: ") - (save-excursion - (set-buffer rmail-buffer) - (rmail-next-labeled-message n labels))) + (let (msg) + (save-excursion + (set-buffer rmail-buffer) + (rmail-next-labeled-message n labels) + (setq msg rmail-current-message)) + (rmail-summary-goto-msg msg))) (defun rmail-summary-previous-labeled-message (n labels) "Show previous message with LABEL. Defaults to last labels used. With prefix argument N moves backward N messages with these labels." (interactive "p\nsMove to previous msg with labels: ") - (save-excursion - (set-buffer rmail-buffer) - (rmail-previous-labeled-message n labels))) + (let (msg) + (save-excursion + (set-buffer rmail-buffer) + (rmail-previous-labeled-message n labels) + (setq msg rmail-current-message)) + (rmail-summary-goto-msg msg))) (defun rmail-summary-next-same-subject (n) "Go to the next message in the summary having the same subject.