debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs/tree: add notmuch-tree-matching-message

Browse source 
This functions removes some duplicate logic between
notmuch-tree-{next,prev}-matching-message

We do this because we will be adding some additional logic similar to
the notmuch-show-next-open-message function, and it will help if this
logic is all in one place.

Signed-off-by: William Casarin <jb55@jb55.com>
This commit is contained in:
William Casarin 2020-04-04 13:41:33 -07:00 committed by David Bremner
parent c0868d959d
commit d9888b301c
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
emacs/notmuch-tree.el
View file

@ -643,21 +643,23 @@ nil otherwise."
(forward-line dir)) (forward-line dir))
(not (funcall eobfn)))) (not (funcall eobfn))))
(defun notmuch-tree-matching-message (&optional prev)
"Move to the next or previous matching message"
(interactive "P")
(forward-line (if prev -1 nil))
(notmuch-tree-goto-matching-message prev)
(when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in)))
(defun notmuch-tree-prev-matching-message () (defun notmuch-tree-prev-matching-message ()
"Move to previous matching message." "Move to previous matching message."
(interactive) (interactive)
(forward-line -1) (notmuch-tree-matching-message t))
(notmuch-tree-goto-matching-message t)
(when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in)))
(defun notmuch-tree-next-matching-message () (defun notmuch-tree-next-matching-message ()
"Move to next matching message." "Move to next matching message."
(interactive) (interactive)
(forward-line) (notmuch-tree-matching-message))
(notmuch-tree-goto-matching-message)
(when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in)))
(defun notmuch-tree-refresh-view (&optional view) (defun notmuch-tree-refresh-view (&optional view)
"Refresh view." "Refresh view."