From fb8f7fc529250eb6cd63c4b05891309093c71625 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 14 Nov 2013 00:25:00 -0500 Subject: Link gnus key definitions to mode hooks Without this, group and article mode hooks were not staying set. --- init/km-gnus.el | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) diff --git a/init/km-gnus.el b/init/km-gnus.el index 0e09eef..e37ba1d 100644 --- a/init/km-gnus.el +++ b/init/km-gnus.el @@ -172,13 +172,19 @@ NO-NUMBER is non-nil, the number of lines is not added." (interactive "r") (km/snip-mail-quote beg end nil t))) -(gnus-define-keys gnus-summary-mode-map - "j" gnus-summary-next-unread-article - ";" gnus-summary-universal-argument ;; mutt's tag - "e" gnus-summary-scroll-up) - -(gnus-define-keys gnus-group-mode-map - "e" gnus-topic-select-group) - -(gnus-define-keys gnus-article-mode-map - "e" shr-browse-url) +(add-hook 'gnus-summary-mode-hook + (lambda () + (gnus-define-keys gnus-summary-mode-map + "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))) -- cgit v1.2.3