summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-04-28 23:55:43 -0400
committerKyle Meyer <kyle@kyleam.com>2014-04-29 00:00:43 -0400
commit63241affe343b3a6bcfc91527d1b58253b2e3c11 (patch)
tree2898b01d45757681d091ac3a2ee4cbf0acceebe8 /lisp
parentf570f1042263c743f3d3feac0342fe8a5f82403b (diff)
downloademacs.d-63241affe343b3a6bcfc91527d1b58253b2e3c11.tar.gz
Change method for defining gnus bindings
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-gnus.el29
1 files 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/