summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-07-03 16:23:26 -0400
committerKyle Meyer <kyle@kyleam.com>2017-07-03 16:40:00 -0400
commitb017a1f12f0de76e9771fa9de5698e43e47af08c (patch)
tree32e9bd185cc3f896e6698171c6a3810975b2ee46 /lisp
parent3e0155f4827c89b8c4fbc4878b147e7bf247ec30 (diff)
downloademacs.d-b017a1f12f0de76e9771fa9de5698e43e47af08c.tar.gz
Add custom notmuch-tree-from-show-current-query command
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)