diff options
Diffstat (limited to 'lisp/km-mail.el')
| -rw-r--r-- | lisp/km-mail.el | 7 |
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) |