git.notmuchmail.org Git - notmuch/blob - notmuch-mode.el

   1 ; A mode for running notmuch within emacs
   2
   3 ;;;###autoload
   4 (defun notmuch-search-mode ()
   5   "Major mode for handling the output of notmuch search"
   6   (interactive)
   7   (kill-all-local-variables)
   8   (setq major-mode 'notmuch-search-mode
   9         mode-name "notmuch-search")
  10   (setq buffer-read-only t))
  11
  12 (defun notmuch ()
  13   "Run notmuch to display all mail with tag of 'inbox'"
  14   (interactive)
  15   (require 'compile)
  16   (compilation-start "notmuch search tag:inbox" 'notmuch-search-mode))