diff options
| -rw-r--r-- | email.org | 17 |
1 files changed, 15 insertions, 2 deletions
@@ -499,7 +499,7 @@ (beginning-of-buffer) (widget-forward 2))) - :hook (notmuch-hello-refresh-hook . jao--refresh-agenda) + :hook (notmuch-hello-refresh . jao--refresh-agenda) :bind (:map notmuch-hello-mode-map (("g" . jao-notmuch-refresh-hello) ("S" . consut-notmuch) @@ -561,6 +561,17 @@ :config + (defun jao-notmuch-tree-next (no-exit) + "Next message in forest or exit if none." + (interactive "P") + (notmuch-tree-next-matching-message (not no-exit))) + + (defun jao-notmuch-tree-scroll-or-next () + "Scroll or next message in forest or exit if none." + (interactive) + (when (notmuch-tree-scroll-message-window) + (notmuch-tree-next-matching-message t))) + (defun jao-notmuch--format-field (fun field &rest args) (let ((rs (apply fun field args))) (if (and (stringp field) (string= field "tree")) @@ -575,7 +586,9 @@ (("." . jao-notmuch-toggle-mime-parts) ("i" . jao-notmuch-toggle-images) ("h" . jao-notmuch-goto-message-buffer) - ("k" . jao-notmuch-tag-jump)))) + ("k" . jao-notmuch-tag-jump) + ("n" . jao-notmuch-tree-next) + ("SPC" . jao-notmuch-tree-scroll-or-next)))) #+end_src *** message #+begin_src emacs-lisp |