From 70192570f37f8da53ebcc4b63397a2cab2d5e63e Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 15 Mar 2014 00:48:59 -0400
Subject: Group mail bindings under common prefix

---
 lisp/init-gnus.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'lisp')

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)
-- 
cgit v1.2.3