From: Carl Worth <cworth@cworth.org>
Date: Fri, 30 Oct 2009 22:12:49 +0000 (-0700)
Subject: notmuch-mode: Add an actualy notmuch-search-mode as well
X-Git-Tag: 0.1~649
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=299874ce290b5619fd4a876143ee6ba18996d92d;hp=17a0b8a95f3d041dd39199d3853b03f7b9fce727

notmuch-mode: Add an actualy notmuch-search-mode as well

Doesn't really do anything so far other than mark the buffer read-
only. This does have the benefit of giving us our own name rather
than "Compilation" for the mode.
---

diff --git a/notmuch-mode.el b/notmuch-mode.el
index eec92044..450d4565 100644
--- a/notmuch-mode.el
+++ b/notmuch-mode.el
@@ -1,7 +1,16 @@
 ; A mode for running notmuch within emacs
 
+;;;###autoload
+(defun notmuch-search-mode ()
+  "Major mode for handling the output of notmuch search"
+  (interactive)
+  (kill-all-local-variables)
+  (setq major-mode 'notmuch-search-mode
+	mode-name "notmuch-search")
+  (setq buffer-read-only t))
+
 (defun notmuch ()
   "Run notmuch to display all mail with tag of 'inbox'"
   (interactive)
   (require 'compile)
-  (compilation-start "notmuch search tag:inbox"))
+  (compilation-start "notmuch search tag:inbox" 'notmuch-search-mode))