From: Ivy Foster <joyfulgirl@archlinux.us>
Date: Sat, 29 Oct 2011 16:35:04 +0000 (-0400)
Subject: emacs: Add notmuch-hello-mode-hook
X-Git-Tag: 0.11_rc1~26
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=db352df09e92171293eacf159342cd950ae596d0

emacs: Add notmuch-hello-mode-hook

Functions called after entering `notmuch-hello-mode'
---

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 0582cae7..ca3a3813 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -138,6 +138,11 @@ Typically \",\" in the US and UK and \".\" in Europe."
   :group 'notmuch
   :type 'string)
 
+(defcustom notmuch-hello-mode-hook nil
+  "Functions called after entering `notmuch-hello-mode'."
+  :group 'notmuch
+  :type 'hook)
+
 (defvar notmuch-hello-url "http://notmuchmail.org"
   "The `notmuch' web site.")
 
@@ -355,6 +360,7 @@ Complete list of currently available key bindings:
  (use-local-map notmuch-hello-mode-map)
  (setq major-mode 'notmuch-hello-mode
        mode-name "notmuch-hello")
+ (run-mode-hooks 'notmuch-hello-mode-hook)
  ;;(setq buffer-read-only t)
 )