summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-07-13 00:57:31 +0000
committerKarl Heuer <kwzh@gnu.org>1996-07-13 00:57:31 +0000
commit70e5376b90b0d91fdef2de54e0dc34d78437da0d (patch)
treec20360f0386c183956c269a341df4711e4e3931f
parent21384db23ee78916f5a73443727bdcfc97eb9826 (diff)
downloademacs-70e5376b90b0d91fdef2de54e0dc34d78437da0d.tar.gz
(rmail-summary-next-labeled-message)
(rmail-summary-previous-labeled-message): Call rmail-summary-goto-msg to move point in the summary.
-rw-r--r--lisp/mail/rmailsum.el18
1 files 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.