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 notmuch-search command as well as notmuch

Browse source 
This allows for entering a query string interactively.
This commit is contained in:
Carl Worth 2009-10-30 17:18:19 -07:00
parent ea97496081
commit 7e8ba9adf8
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
notmuch.el
View file

@ -40,8 +40,13 @@
mode-name "notmuch-search") mode-name "notmuch-search")
(setq buffer-read-only t)) (setq buffer-read-only t))
(defun notmuch-search (query)
"Run \"notmuch search\" with the given query string and display results."
(interactive "sNotmuch search:")
(compilation-start (concat "notmuch search " query) 'notmuch-search-mode))
(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)
(require 'compile) (require 'compile)
(compilation-start "notmuch search tag:inbox" 'notmuch-search-mode)) (notmuch-search "tag:inbox"))