--- 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 f8ae332..5777e99 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -32,6 +32,11 @@ (defvar notmuch-hello-search-bar-marker nil "The position of the search bar within the notmuch-hello buffer.") +(defcustom notmuch-hello-hook nil + "Functions to call after populating a `notmuch-hello' buffer." + :group 'notmuch + :type 'hook) + (defcustom notmuch-recent-searches-max 10 "The number of recent searches to store and display." :type 'integer @@ -508,7 +513,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)) ;;;###autoload (defun notmuch-folder () -- 1.7.1