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