From 63241affe343b3a6bcfc91527d1b58253b2e3c11 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 28 Apr 2014 23:55:43 -0400 Subject: Change method for defining gnus bindings --- lisp/init-gnus.el | 29 +++++++++-------------------- 1 file changed, 9 insertions(+), 20 deletions(-) diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index a7959a8..775eedb 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -179,26 +179,15 @@ on a new line and the resulting paragraph is filled." (just-one-space) (fill-paragraph)))) -(define-key message-mode-map - (kbd "C-c m s") 'km/snip-mail-quote) - -(add-hook 'gnus-summary-mode-hook - (lambda () - (gnus-define-keys gnus-summary-mode-map - "c" km/gnus-catchup-and-goto-next-group - "j" gnus-summary-next-unread-article - ";" gnus-summary-universal-argument ;; mutt's tag - "e" gnus-summary-scroll-up))) - -(add-hook 'gnus-group-mode-hook - (lambda () - (gnus-define-keys gnus-group-mode-map - "e" gnus-topic-select-group))) - -(add-hook 'gnus-article-mode-hook - (lambda () - (gnus-define-keys gnus-article-mode-map - "e" shr-browse-url))) +(define-key message-mode-map (kbd "C-c m s") 'km/snip-mail-quote) + +(define-key gnus-summary-mode-map "c" 'km/gnus-catchup-and-goto-next-group) +(define-key gnus-summary-mode-map "j" 'gnus-summary-next-unread-article) +(define-key gnus-summary-mode-map ";" 'gnus-summary-universal-argument) +(define-key gnus-summary-mode-map "e" 'gnus-summary-scroll-up) + +(define-key gnus-group-mode-map "e" 'gnus-topic-select-group) +(define-key gnus-article-mode-map "e" 'shr-browse-url) ;; Modified from http://www.xsteve.at/prg/gnus/ -- cgit v1.2.3