debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +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 "q" 'kill-this-buffer)
(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 "\r" 'notmuch-search-show-thread)
(define-key map "+" 'notmuch-search-add-tag)
@ -492,14 +493,21 @@ same relative position within the new buffer."
(goto-char here))))
(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
current search string, and the results of \"notmuch search\" for
the combined query will be displayed."
Runs a new search matching only messages that match both the
current search results AND the additional query string provided."
(interactive "sFilter search: ")
(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 ()
"Run notmuch to display all mail with tag of 'inbox'"
(interactive)