notmuch: homogeneous scrolling over everything with SPC

1 files changed, 6 insertions, 3 deletions

diff --git a/email.org b/email.org
index eaac4c2..57f360c 100644
--- a/email.org
+++ b/email.org
@@ -503,7 +503,8 @@
         :bind (:map notmuch-hello-mode-map
                (("g" . jao-notmuch-refresh-hello)
                 ("S" . consut-notmuch)
-                ("k" . nil))))
+                ("k" . nil)
+                ("SPC" . widget-button-press))))
 
     #+end_src
 *** show
@@ -571,8 +572,10 @@
         (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)))
+          (if (notmuch-tree-scroll-message-window)
+              (notmuch-tree-next-matching-message t)
+            (when (not (window-live-p notmuch-tree-message-window))
+              (notmuch-tree-show-message nil))))
 
         (defun jao-notmuch--format-field (fun field &rest args)
           (let ((rs (apply fun field args)))