diff options
author | Carl Worth <cworth@cworth.org> | 2010-04-26 22:05:47 -0700 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 22:05:47 -0700 |
commit | f8e372ebeccff4e2cba323d75ac1278cb22828b9 (patch) | |
tree | f64186feba69e500ffddc25d9ca5b9797853d188 /emacs/notmuch-hello.el | |
parent | 2a6a0e248174d93f431018ce8b809fc0fdebd847 (diff) |
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).
Diffstat (limited to 'emacs/notmuch-hello.el')
-rw-r--r-- | emacs/notmuch-hello.el | 7 |
1 files changed, 7 insertions, 0 deletions
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) |