[PATCH 4/4] emacs: add notmuch-hello-hook
Thomas Jost
schnouki at schnouki.net
Mon Oct 3 05:03:58 PDT 2011
---
emacs/notmuch-hello.el | 9 ++++++++-
1 files changed, 8 insertions(+), 1 deletions(-)
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 1cf95d7..00bb5ce 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -111,6 +111,11 @@ So:
(integer :tag "Number of characters")
(float :tag "Fraction of window")))
+(defcustom notmuch-hello-hook nil
+ "Functions called after populating a `notmuch-hello' buffer."
+ :type 'hook
+ :group 'notmuch)
+
(defcustom notmuch-thousands-separator ","
"The string used as a thousands separator.
@@ -551,7 +556,9 @@ Complete list of currently available key bindings:
(widget-forward 1)))
(unless (widget-at)
- (notmuch-hello-goto-search)))))
+ (notmuch-hello-goto-search))
+
+ (run-hooks 'notmuch-hello-hook))))
(defun notmuch-folder ()
"Deprecated function for invoking notmuch---calling `notmuch' is preferred now."
--
1.7.6.4
More information about the notmuch
mailing list