>From f615268be55ddfdfdc9c3c2f4f0a15ad6bafa183 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Wed, 13 Dec 2017 19:55:15 +0000 Subject: [PATCH] Do not pop to buffer for reading gnus summary keys * lisp/gnus/gnus-art.el (gnus-article-read-summary-keys): Lookup summary buffer keys from article buffer without affecting window configuration. --- lisp/gnus/gnus-art.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 6ee0d7b023..51e2a9a21f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6711,11 +6711,10 @@ gnus-article-read-summary-keys (member keys nosave-but-article) (member keys nosave-in-article)) (let (func) - (save-window-excursion - (pop-to-buffer gnus-article-current-summary) - ;; We disable the pick minor mode commands. - (let (gnus-pick-mode) - (setq func (key-binding keys t)))) + (with-current-buffer gnus-article-current-summary + ;; We disable the pick minor mode commands. + (let (gnus-pick-mode) + (setq func (key-binding keys t)))) (if (or (not func) (numberp func)) (ding) -- 2.15.1