From d69006dfee6de646e2c80d3b3b3754d1cc6d139c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 13 Jul 1996 00:57:31 +0000 Subject: [PATCH] (rmail-summary-next-labeled-message) (rmail-summary-previous-labeled-message): Call rmail-summary-goto-msg to move point in the summary. --- lisp/mail/rmailsum.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index f9152447733..b8637ce20ab 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -469,17 +469,23 @@ messages, or backward if NUMBER is negative." "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. -- 2.39.2