emacs: tree: mark read change

The mark read code for tree mode did not get updated in the recent
changes. This updates it to match. Since the user can customize the
mark read logic we just call the show logic in the message pane.

diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
index 8b6cd51017947c27ff90dbff44bde1fbdac98add..182235e79525be3723877d496ed717018af4f7f3 100644 (file)
--- a/emacs/notmuch-tree.el
+++ b/emacs/notmuch-tree.el
@@ -413,6 +413,13 @@ Does NOT change the database."
       (ignore-errors
        (delete-window notmuch-tree-message-window)))))
 
       (ignore-errors
        (delete-window notmuch-tree-message-window)))))
 

+(defun notmuch-tree-command-hook ()
+  (when (eq major-mode 'notmuch-tree-mode)
+    ;; We just run the notmuch-show-command-hook on the message pane.
+    (when (buffer-live-p notmuch-tree-message-buffer)
+      (with-current-buffer notmuch-tree-message-buffer
+       (notmuch-show-command-hook)))))
+

 (defun notmuch-tree-show-message-in ()
   "Show the current message (in split-pane)."
   (interactive)
 (defun notmuch-tree-show-message-in ()
   "Show the current message (in split-pane)."
   (interactive)


@@ -855,6 +862,7 @@ This is is a helper function for notmuch-tree. The arguments are
 the same as for the function notmuch-tree."
   (interactive)
   (notmuch-tree-mode)
 the same as for the function notmuch-tree."
   (interactive)
   (notmuch-tree-mode)

+  (add-hook 'post-command-hook #'notmuch-tree-command-hook t t)

   (setq notmuch-tree-basic-query basic-query)
   (setq notmuch-tree-query-context query-context)
   (setq notmuch-tree-target-msg target)
   (setq notmuch-tree-basic-query basic-query)
   (setq notmuch-tree-query-context query-context)
   (setq notmuch-tree-target-msg target)