X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch-mode.el;h=450d4565fa7ea5e5fc6fb197b2a01b66e04dc221;hp=eec920446371b518719469669efa534f204a3d9b;hb=299874ce290b5619fd4a876143ee6ba18996d92d;hpb=17a0b8a95f3d041dd39199d3853b03f7b9fce727

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