diff options
| -rw-r--r-- | init.el | 3 | ||||
| -rw-r--r-- | lisp/km-mail.el | 7 |
2 files changed, 10 insertions, 0 deletions
@@ -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 @@ -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) |