in which selecting the article window is not necessary (bug#25526).
(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))))))