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> --- emacs/notmuch-tree.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index c00315e8..4bc05160 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -620,10 +620,14 @@ message will be \"unarchived\", i.e. the tag changes in (notmuch-tree-thread-top)) (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) (forward-line 1) - (while (not (or (notmuch-tree-get-prop :first) (eobp))) - (forward-line 1))) + (let (end) + (while (not (or (notmuch-tree-get-prop :first) (setq end (eobp)))) + (forward-line 1)) + (not end))) (defun notmuch-tree-thread-mapcar (function) "Iterate through all messages in the current thread -- 2.23.0 _______________________________________________ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch