summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-08-03 15:15:45 +0100
committerjao <jao@gnu.org>2021-08-03 15:15:45 +0100
commit8a3718bf2866dfa322a8b1d5c5f293a422154fa9 (patch)
treefee1150974f7b521b626211b1d6fea0fdfd8b164
parent0c0829bd0d780c5d483dba6cea1579e62c13dc5b (diff)
downloadelibs-8a3718bf2866dfa322a8b1d5c5f293a422154fa9.tar.gz
elibs-8a3718bf2866dfa322a8b1d5c5f293a422154fa9.tar.bz2
notmuch: widen current search
-rw-r--r--notmuch.org7
1 files changed, 7 insertions, 0 deletions
diff --git a/notmuch.org b/notmuch.org
index 2f617b6..e0f92a7 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -100,6 +100,13 @@
,(jao-notmuch--q "new" nil "n" '("tag:new"))
,(jao-notmuch--q "draft" nil "d" '("tag:draft"))))
+ (defun jao-notmuch-tree-widen-search ()
+ (interactive)
+ (when-let ((query (notmuch-tree-get-query)))
+ (let ((notmuch-show-process-crypto (notmuch-tree--message-process-crypto)))
+ (notmuch-tree-close-message-window)
+ (notmuch-tree (string-replace jao-notmuch--newa "" query)))))
+
(defun jao-notmuch-widen-searches (searches)
(mapcar (lambda (s)
(let ((q (plist-get s :query)))