debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-01-18 17:25:57 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch-hello: Add a 'G' keybinding.

Browse source 
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).
This commit is contained in:
Carl Worth 2010-04-26 22:05:47 -07:00
parent 2a6a0e2481
commit f8e372ebec
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/notmuch-hello.el
View file

@ -198,6 +198,12 @@ diagonal."
(interactive) (interactive)
(notmuch-hello no-display)) (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) (defun notmuch-hello (&optional no-display)
(interactive) (interactive)
@ -386,6 +392,7 @@ diagonal."
(use-local-map widget-keymap) (use-local-map widget-keymap)
(local-set-key "=" 'notmuch-hello-update) (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 "m" 'notmuch-mua-mail)
(local-set-key "q" '(lambda () (interactive) (kill-buffer (current-buffer)))) (local-set-key "q" '(lambda () (interactive) (kill-buffer (current-buffer))))
(local-set-key "s" 'notmuch-hello-goto-search) (local-set-key "s" 'notmuch-hello-goto-search)

2
emacs/notmuch-lib.el
View file

@ -40,6 +40,8 @@
;; ;;
(declare-function notmuch-poll ())
(defun notmuch-version () (defun notmuch-version ()
"Return a string with the notmuch version number." "Return a string with the notmuch version number."
(let ((long-string (let ((long-string