Add an entry to notmuch-pick from notmuch-hello and bind it to 'z'. --- emacs/notmuch-hello.el | 10 ++++++++++ 1 files changed, 10 insertions(+), 0 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index d17a30f..6d28a7e 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -27,6 +27,7 @@ (require 'notmuch-mua) (declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation)) +(declare-function notmuch-pick "notmuch-pick" (query &optional query-context buffer-name)) (declare-function notmuch-poll "notmuch" ()) (defcustom notmuch-hello-recent-searches-max 10 @@ -181,6 +182,14 @@ International Bureau of Weights and Measures." (notmuch-search search notmuch-search-oldest-first nil nil #'notmuch-hello-search-continuation)) +(defun notmuch-hello-pick (&optional search) + (interactive) + (unless (null search) + (setq search (notmuch-hello-trim search)) + (let ((history-delete-duplicates t)) + (add-to-history 'notmuch-search-history search))) + (notmuch-pick search)) + (defun notmuch-hello-add-saved-search (widget) (interactive) (let ((search (widget-value @@ -345,6 +354,7 @@ should be. Returns a cons cell `(tags-per-line width)'." (define-key map (kbd "<C-tab>") 'widget-backward) (define-key map "m" 'notmuch-mua-new-mail) (define-key map "s" 'notmuch-hello-search) + (define-key map "z" 'notmuch-hello-pick) map) "Keymap for \"notmuch hello\" buffers.") (fset 'notmuch-hello-mode-map notmuch-hello-mode-map) -- 1.7.2.3