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

emacs/tree: introduce notmuch-tree-parent-buffer variable

Browse source 
This variable will be used in a similar fashion to
notmuch-show-parent-buffer. It will be used to navigate between
threads from the parent search buffer.

Signed-off-by: William Casarin <jb55@jb55.com>
This commit is contained in:
William Casarin 2020-08-11 10:36:51 -07:00 committed by David Bremner
parent 25f9a42287
commit 189175ecd6
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-tree.el
View file

@ -222,6 +222,9 @@ For example:
"A buffer local copy of argument open-target to the function notmuch-tree.") "A buffer local copy of argument open-target to the function notmuch-tree.")
(make-variable-buffer-local 'notmuch-tree-open-target) (make-variable-buffer-local 'notmuch-tree-open-target)
(defvar notmuch-tree-parent-buffer nil)
(make-variable-buffer-local 'notmuch-tree-parent-buffer)
(defvar notmuch-tree-message-window nil (defvar notmuch-tree-message-window nil
"The window of the message pane. "The window of the message pane.
@ -1050,7 +1053,7 @@ the same as for the function notmuch-tree."
")") ")")
notmuch-tree-basic-query)) notmuch-tree-basic-query))
(defun notmuch-tree (&optional query query-context target buffer-name open-target unthreaded) (defun notmuch-tree (&optional query query-context target buffer-name open-target unthreaded parent-buffer)
"Display threads matching QUERY in tree view. "Display threads matching QUERY in tree view.
The arguments are: The arguments are:
@ -1080,6 +1083,7 @@ The arguments are:
;; Don't track undo information for this buffer ;; Don't track undo information for this buffer
(set 'buffer-undo-list t) (set 'buffer-undo-list t)
(notmuch-tree-worker query query-context target open-target unthreaded) (notmuch-tree-worker query query-context target open-target unthreaded)
(setq notmuch-tree-parent-buffer parent-buffer)
(setq truncate-lines t)) (setq truncate-lines t))
(defun notmuch-unthreaded (&optional query query-context target buffer-name open-target) (defun notmuch-unthreaded (&optional query query-context target buffer-name open-target)

2
emacs/notmuch.el
View file

@ -545,7 +545,7 @@ thread."
notmuch-search-query-string notmuch-search-query-string
nil nil
(notmuch-prettify-subject (notmuch-search-find-subject)) (notmuch-prettify-subject (notmuch-search-find-subject))
t)) t nil (current-buffer)))
(defun notmuch-search-reply-to-thread (&optional prompt-for-sender) (defun notmuch-search-reply-to-thread (&optional prompt-for-sender)
"Begin composing a reply-all to the entire current thread in a new buffer." "Begin composing a reply-all to the entire current thread in a new buffer."