From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 13 Jul 1996 00:57:31 +0000 (+0000)
Subject: (rmail-summary-next-labeled-message)
X-Git-Tag: emacs-19.34~204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d69006dfee6de646e2c80d3b3b3754d1cc6d139c;p=emacs.git

(rmail-summary-next-labeled-message)
(rmail-summary-previous-labeled-message):
Call rmail-summary-goto-msg to move point in the summary.
---

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.