summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-10-27 15:43:33 -0400
committerKyle Meyer <kyle@kyleam.com>2018-01-13 11:14:43 -0500
commit9146e7c012213ee8391dbd8515207d7243f4b8e5 (patch)
treeb17e898bc03f7a67687c2ee8988e804c4d3165cd /lisp
parent51c63fa9c8b25aaeef4e07338d43653fb46d61df (diff)
downloademacs.d-9146e7c012213ee8391dbd8515207d7243f4b8e5.tar.gz
Define notmuch-search variant
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-mail.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el
index c9fbe1e..88511a2 100644
--- a/lisp/km-mail.el
+++ b/lisp/km-mail.el
@@ -132,6 +132,20 @@ in the remote's \".git/config\" entry."
(magit-call-git "fetch" remote))
(magit-log (list (concat base-ref ".." local-ref)))))
+;;;###autoload
+(defun km/notmuch-search ()
+ "Call `notmuch-search', bypassing `notmuch-read-query'."
+ (interactive)
+ (notmuch-search
+ (read-string "Notmuch search: "
+ "date:20d.. "
+ 'notmuch-search-history
+ (pcase major-mode
+ (`notmuch-search-mode (notmuch-search-get-query))
+ (`notmuch-show-mode (notmuch-show-get-query))
+ (`notmuch-tree-mode (notmuch-tree-get-query))))
+ (default-value 'notmuch-search-oldest-first)))
+
(defmacro km/notmuch-with-raw-message (msg-id &rest body)
"Evaluate BODY with temporary buffer containing text for MSG-ID.
MSG-ID is evaluated before entering the temporary buffer. See