diff options
| author | jao <jao@gnu.org> | 2021-08-03 15:15:45 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-08-03 15:15:45 +0100 |
| commit | 8a3718bf2866dfa322a8b1d5c5f293a422154fa9 (patch) | |
| tree | fee1150974f7b521b626211b1d6fea0fdfd8b164 | |
| parent | 0c0829bd0d780c5d483dba6cea1579e62c13dc5b (diff) | |
| download | elibs-8a3718bf2866dfa322a8b1d5c5f293a422154fa9.tar.gz elibs-8a3718bf2866dfa322a8b1d5c5f293a422154fa9.tar.bz2 | |
notmuch: widen current search
| -rw-r--r-- | notmuch.org | 7 |
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))) |