summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-13 00:08:58 -0500
committerKyle Meyer <kyle@kyleam.com>2014-11-13 00:08:58 -0500
commit4e6f2b551794d19df6c899cb78d070061a3e41b0 (patch)
tree1941cc39ffd090401591ed38196ef07246e39e0a /lisp
parent34d72f833828f2ef5f174cbbfc23bd69b67fbe42 (diff)
downloademacs.d-4e6f2b551794d19df6c899cb78d070061a3e41b0.tar.gz
gnus: Show article after ace-jumping
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-gnus.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el
index bd0f072..3fbbd51 100644
--- a/lisp/init-gnus.el
+++ b/lisp/init-gnus.el
@@ -269,6 +269,11 @@ read. Don't ask to confirm."
"Go to next group without selecting the first article."
(ad-set-arg 0 t))
+(defun km/gnus-setup-local-ace-jump ()
+ (add-hook 'ace-jump-mode-end-hook '(lambda () (gnus-summary-scroll-up 0))
+ nil t))
+(add-hook 'gnus-summary-mode-hook 'km/gnus-setup-local-ace-jump)
+
;; This overrides `gnus-summary-post-news', which is also bound to
;; 'S p'.
(define-key gnus-summary-mode-map "a" 'ace-jump-mode)