diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-04-28 23:55:43 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-04-29 00:00:43 -0400 |
| commit | 63241affe343b3a6bcfc91527d1b58253b2e3c11 (patch) | |
| tree | 2898b01d45757681d091ac3a2ee4cbf0acceebe8 | |
| parent | f570f1042263c743f3d3feac0342fe8a5f82403b (diff) | |
| download | emacs.d-63241affe343b3a6bcfc91527d1b58253b2e3c11.tar.gz | |
Change method for defining gnus bindings
| -rw-r--r-- | lisp/init-gnus.el | 29 |
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/ |