summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-mail.el7
1 files changed, 7 insertions, 0 deletions
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
@@ -58,6 +58,13 @@
(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."
(interactive)