From f8e372ebeccff4e2cba323d75ac1278cb22828b9 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Mon, 26 Apr 2010 22:05:47 -0700 Subject: [PATCH] notmuch-hello: Add a 'G' keybinding. Just like the G keybinding we've had in notmuch-folder-mode and notmuch-search-mode, (to call `notmuch-poll' to 'G'et new mail). --- emacs/notmuch-hello.el | 7 +++++++ emacs/notmuch-lib.el | 2 ++ 2 files changed, 9 insertions(+) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 82a3a4b1..97db90e5 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -198,6 +198,12 @@ diagonal." (interactive) (notmuch-hello no-display)) +(defun notmuch-hello-poll-and-update () + "Invoke `notmuch-poll' to import mail, then refresh the current view." + (interactive) + (notmuch-poll) + (notmuch-hello-update)) + (defun notmuch-hello (&optional no-display) (interactive) @@ -386,6 +392,7 @@ diagonal." (use-local-map widget-keymap) (local-set-key "=" 'notmuch-hello-update) + (local-set-key "G" 'notmuch-hello-poll-and-update) (local-set-key "m" 'notmuch-mua-mail) (local-set-key "q" '(lambda () (interactive) (kill-buffer (current-buffer)))) (local-set-key "s" 'notmuch-hello-goto-search) diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index b64aeab9..3b26aca8 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -40,6 +40,8 @@ ;; +(declare-function notmuch-poll ()) + (defun notmuch-version () "Return a string with the notmuch version number." (let ((long-string -- 2.26.2