From 4e6f2b551794d19df6c899cb78d070061a3e41b0 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 13 Nov 2014 00:08:58 -0500 Subject: gnus: Show article after ace-jumping --- lisp/init-gnus.el | 5 +++++ 1 file changed, 5 insertions(+) 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) -- cgit v1.2.3