From: Katsumi Yamaoka Date: Thu, 12 Apr 2018 23:19:17 +0000 (+0000) Subject: * lisp/gnus/gnus-art.el (gnus-article-prepare): Make sure the article X-Git-Tag: emacs-27.0.90~5269 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=306a6f8d435e8283691898552391687aeff4110d;p=emacs.git * lisp/gnus/gnus-art.el (gnus-article-prepare): Make sure the article begins with the top of the header (bug#25526). --- diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 74915a8cda9..f8a29ea2e51 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -4696,6 +4696,10 @@ If ALL-HEADERS is non-nil, no headers are hidden." (forward-line -1)) (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))) (gnus-run-hooks 'gnus-article-prepare-hook) t))))))