debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Add 't' binding to filter results to a specific tag.

Browse source 
This is a convenience function to avoid having to type "tag:" with
the (f)ilter command.
This commit is contained in:
Carl Worth 2009-11-03 17:01:07 -08:00
parent 50f260a1a3
commit c4ea149a9b
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
notmuch.el
View file

@ -328,6 +328,7 @@ Does nothing if already on the first message in the buffer."
(define-key map "p" 'previous-line) (define-key map "p" 'previous-line)
(define-key map "q" 'kill-this-buffer) (define-key map "q" 'kill-this-buffer)
(define-key map "s" 'notmuch-search) (define-key map "s" 'notmuch-search)
(define-key map "t" 'notmuch-search-filter-by-tag)
(define-key map "x" 'kill-this-buffer) (define-key map "x" 'kill-this-buffer)
(define-key map "\r" 'notmuch-search-show-thread) (define-key map "\r" 'notmuch-search-show-thread)
(define-key map "+" 'notmuch-search-add-tag) (define-key map "+" 'notmuch-search-add-tag)
@ -492,14 +493,21 @@ same relative position within the new buffer."
(goto-char here)))) (goto-char here))))
(defun notmuch-search-filter (query) (defun notmuch-search-filter (query)
"Run \"notmuch search\" to refine the current search results. "Filter the current search results based on an additional query string.
A search string will be constructed by appending QUERY to the Runs a new search matching only messages that match both the
current search string, and the results of \"notmuch search\" for current search results AND the additional query string provided."
the combined query will be displayed."
(interactive "sFilter search: ") (interactive "sFilter search: ")
(notmuch-search (concat notmuch-search-query-string " and " query))) (notmuch-search (concat notmuch-search-query-string " and " query)))
(defun notmuch-search-filter-by-tag (tag)
"Filter the current search results based on a single tag.
Runs a new search matching only messages that match both the
current search results AND that are tagged with the given tag."
(interactive "sFilter by tag: ")
(notmuch-search (concat notmuch-search-query-string " and tag:" tag)))
(defun notmuch () (defun notmuch ()
"Run notmuch to display all mail with tag of 'inbox'" "Run notmuch to display all mail with tag of 'inbox'"
(interactive) (interactive)