From b017a1f12f0de76e9771fa9de5698e43e47af08c Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 3 Jul 2017 16:23:26 -0400 Subject: Add custom notmuch-tree-from-show-current-query command --- lisp/km-mail.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lisp') 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