notmuch.el: Add notmuch-search command as well as notmuch

This allows for entering a query string interactively.

diff --git a/notmuch.el b/notmuch.el
index 3e4a30828ba8fee05b7c851beed85d4a29c55a86..84152fbccfebb14d55511a50d8fa759873c32d08 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -40,8 +40,13 @@
        mode-name "notmuch-search")
   (setq buffer-read-only t))
 
        mode-name "notmuch-search")
   (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 ()
   "Run notmuch to display all mail with tag of 'inbox'"
   (interactive)
   (require 'compile)
 (defun notmuch ()
   "Run notmuch to display all mail with tag of 'inbox'"
   (interactive)
   (require 'compile)

-  (compilation-start "notmuch search tag:inbox" 'notmuch-search-mode))
+  (notmuch-search "tag:inbox"))