notmuch.el: Switch from compilation-start to start-process

[notmuch] / notmuch.el

diff --git a/notmuch.el b/notmuch.el
index 3e4a30828ba8fee05b7c851beed85d4a29c55a86..4f4a7c9c9f7e0b2a6b7e9fe32068beea844203b5 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: ")
+  (start-process "notmuch-search" (concat "*notmuch-search-" query) "notmuch" "search" query))
+

 (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"))