mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-28 13:44:12 +01:00
emacs/tree: return true if a thread was found in next-thread
This will allow us to pop back to parent buffers when there are no more threads to jump to. Signed-off-by: William Casarin <jb55@jb55.com>
This commit is contained in:
parent
144cf30e2c
commit
8eec15a903
1 changed files with 4 additions and 1 deletions
|
@ -679,10 +679,13 @@ message will be \"unarchived\", i.e. the tag changes in
|
||||||
(notmuch-tree-thread-top))
|
(notmuch-tree-thread-top))
|
||||||
|
|
||||||
(defun notmuch-tree-next-thread ()
|
(defun notmuch-tree-next-thread ()
|
||||||
|
"Get the next thread in the current tree. Returns t if a thread was
|
||||||
|
found or nil if not."
|
||||||
(interactive)
|
(interactive)
|
||||||
(forward-line 1)
|
(forward-line 1)
|
||||||
(while (not (or (notmuch-tree-get-prop :first) (eobp)))
|
(while (not (or (notmuch-tree-get-prop :first) (eobp)))
|
||||||
(forward-line 1)))
|
(forward-line 1))
|
||||||
|
(not (eobp)))
|
||||||
|
|
||||||
(defun notmuch-tree-thread-mapcar (function)
|
(defun notmuch-tree-thread-mapcar (function)
|
||||||
"Iterate through all messages in the current thread
|
"Iterate through all messages in the current thread
|
||||||
|
|
Loading…
Reference in a new issue