martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(rmail-summary-next-labeled-message)

Browse Source 
(rmail-summary-previous-labeled-message):
Call rmail-summary-goto-msg to move point in the summary.
This commit is contained in:
Karl Heuer
1996-07-13 00:57:31 +00:00
parent d3e458b053
commit d69006dfee
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/mail/rmailsum.el
View File

@@ -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.