[RFC PATCH v3 04/11] emacs: add entry to notmuch-pick from notmuch-hello.el
Mark Walters
markwalters1009 at gmail.com
Sun Feb 12 17:20:08 PST 2012
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
More information about the notmuch
mailing list