debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-31 13:51:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
This function captures some common logic when jumping to matching
messages in notmuch-tree mode.

We also add a new return value (t or nil), that indicates if there was
a next matching message in the thread to show.

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

18
emacs/notmuch-tree.el
View file

@ -631,12 +631,23 @@ message will be \"unarchived\", i.e. the tag changes in
(when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in)))
(defun notmuch-tree-goto-matching-message (&optional prev)
"Move to the next or previous matching message.
Returns t if there was a next matching message in the thread to show,
nil otherwise."
(let ((dir (if prev -1 nil))
(eobfn (if prev #'bobp #'eobp)))
(while (and (not (funcall eobfn))
(not (notmuch-tree-get-match)))
(forward-line dir))
(not (funcall eobfn))))
(defun notmuch-tree-prev-matching-message ()
"Move to previous matching message."
(interactive)
(forward-line -1)
(while (and (not (bobp)) (not (notmuch-tree-get-match)))
(forward-line -1))
(notmuch-tree-goto-matching-message t)
(when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in)))
@ -644,8 +655,7 @@ message will be \"unarchived\", i.e. the tag changes in
"Move to next matching message."
(interactive)
(forward-line)
(while (and (not (eobp)) (not (notmuch-tree-get-match)))
(forward-line))
(notmuch-tree-goto-matching-message)
(when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in)))