summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-03-15 00:48:59 -0400
committerKyle Meyer <kyle@kyleam.com>2014-03-15 00:48:59 -0400
commit70192570f37f8da53ebcc4b63397a2cab2d5e63e (patch)
treec79b229b137eefb09f978413c2f606d18dfb360e /lisp
parent2af2b48377e6143ed6e8b7d719b12164940812d6 (diff)
downloademacs.d-70192570f37f8da53ebcc4b63397a2cab2d5e63e.tar.gz
Group mail bindings under common prefix
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-gnus.el14
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el
index f10e846..cf98b74 100644
--- a/lisp/init-gnus.el
+++ b/lisp/init-gnus.el
@@ -64,8 +64,6 @@
(defvar km/sync-mail-cmd "sync-mail.sh"
"Run sync mail script.")
-(define-key external-map "m" 'km/sync-mail)
-
;; http://www.emacswiki.org/emacs/GnusSync
(defun gnus-grace-exit-before-kill-emacs ()
(if (and (fboundp 'gnus-alive-p)
@@ -238,8 +236,6 @@ on a new line and the resulting paragraph is filled."
(bury-buffer)
(bury-buffer buf))))))
-(global-set-key (kbd "C-x m") 'km/gnus-select-or-bury)
-
;; From http://ivan.kanis.fr/ivan-gnus.el
(defun km/gnus-catchup-and-goto-next-group (&optional all)
"Mark all articles in this group as read and select the next group.
@@ -255,4 +251,14 @@ read. Don't ask to confirm."
"Go to next group without selecting the first article."
(ad-set-arg 0 t))
+(define-prefix-command 'mail-map)
+(global-set-key (kbd "C-x m") 'mail-map)
+
+(define-key mail-map "g" 'gnus)
+(define-key mail-map "b" 'km/gnus-select-or-bury)
+(define-key mail-map "p" 'gnus-plugged)
+(define-key mail-map "u" 'gnus-unplugged)
+(define-key mail-map "s" 'km/sync-mail)
+(define-key mail-map "n" 'notmuch-search)
+
(provide 'init-gnus)