1 files changed, 1 insertions, 2 deletions

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index e9cc09ce9b8..65d3bbe71ca 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -6712,8 +6712,7 @@ not have a face in `gnus-article-boring-faces'."
           (member keys nosave-but-article)
           (member keys nosave-in-article))
       (let (func)
-        (save-window-excursion
-          (pop-to-buffer gnus-article-current-summary)
+        (with-current-buffer gnus-article-current-summary
           ;; We disable the pick minor mode commands.
           (let (gnus-pick-mode)
             (setq func (key-binding keys t))))