emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master a20d2e6: * lisp/gnus/gnus-art.el (gnus-article-prep


From: Katsumi Yamaoka
Subject: [Emacs-diffs] master a20d2e6: * lisp/gnus/gnus-art.el (gnus-article-prepare): Fix previous commit,
Date: Fri, 13 Apr 2018 03:42:41 -0400 (EDT)

branch: master
commit a20d2e6625392cced400f5983f998bf2673c9d57
Author: martin rudalics <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    * lisp/gnus/gnus-art.el (gnus-article-prepare): Fix previous commit,
    in which selecting the article window is not necessary (bug#25526).
---
 lisp/gnus/gnus-art.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index f8a29ea..ed6e77f 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -4697,9 +4697,10 @@ If ALL-HEADERS is non-nil, no headers are hidden."
            (set-window-point (get-buffer-window (current-buffer)) (point))
            (gnus-configure-windows 'article)
            ;; Make sure the article begins with the top of the header.
-           (save-selected-window
-             (select-window (get-buffer-window gnus-article-buffer))
-             (goto-char (point-min)))
+           (let ((window (get-buffer-window gnus-article-buffer)))
+             (when window
+               (with-current-buffer (window-buffer window)
+                 (set-window-point window (point-min)))))
            (gnus-run-hooks 'gnus-article-prepare-hook)
            t))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]