debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 20:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: tree: mark read change

Browse source 
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.
This commit is contained in:
Mark Walters 2015-06-09 10:51:07 +01:00 committed by David Bremner
parent 0291ec71b6
commit 5e37568841
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-tree.el
View file

@ -413,6 +413,13 @@ Does NOT change the database."
(ignore-errors (ignore-errors
(delete-window notmuch-tree-message-window))))) (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 () (defun notmuch-tree-show-message-in ()
"Show the current message (in split-pane)." "Show the current message (in split-pane)."
(interactive) (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." the same as for the function notmuch-tree."
(interactive) (interactive)
(notmuch-tree-mode) (notmuch-tree-mode)
(add-hook 'post-command-hook #'notmuch-tree-command-hook t t)
(setq notmuch-tree-basic-query basic-query) (setq notmuch-tree-basic-query basic-query)
(setq notmuch-tree-query-context query-context) (setq notmuch-tree-query-context query-context)
(setq notmuch-tree-target-msg target) (setq notmuch-tree-target-msg target)