From b017a1f12f0de76e9771fa9de5698e43e47af08c Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 3 Jul 2017 16:23:26 -0400
Subject: Add custom notmuch-tree-from-show-current-query command

---
 init.el         | 3 +++
 lisp/km-mail.el | 7 +++++++
 2 files changed, 10 insertions(+)

diff --git a/init.el b/init.el
index d5804c8..7193e92 100644
--- a/init.el
+++ b/init.el
@@ -2171,6 +2171,9 @@
     #'km/notmuch-show-pipe-part-to-project)
   (define-key notmuch-show-mode-map [remap notmuch-show-pipe-message]
     #'km/notmuch-show-pipe-message-to-project)
+  (define-key notmuch-show-mode-map
+    [remap notmuch-tree-from-show-current-query]
+    #'km/notmuch-tree-from-show-current-query)
   (define-key notmuch-tree-mode-map [remap notmuch-show-pipe-message]
     #'km/notmuch-show-pipe-message-to-project))
 
diff --git a/lisp/km-mail.el b/lisp/km-mail.el
index b25934c..772b3a4 100644
--- a/lisp/km-mail.el
+++ b/lisp/km-mail.el
@@ -57,6 +57,13 @@
   (mark-whole-buffer)
   (call-interactively #'notmuch-search-archive-thread))
 
+;;;###autoload
+(defun km/notmuch-tree-from-show-current-query (&optional ignore-context)
+  (interactive "P")
+  (let ((notmuch-show-query-context (and (not ignore-context)
+                                         notmuch-show-query-context)))
+    (call-interactively #'notmuch-tree-from-show-current-query)))
+
 ;;;###autoload
 (defun km/notmuch-show-at-point ()
   "Call `notmuch-show' with message or thread ID at point."
-- 
cgit v1.2.3