From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 13 Apr 2018 19:18:51 +0000 (+0200)
Subject: Tweak point placement in gnus-summary-select-article-buffer
X-Git-Tag: emacs-27.0.90~5239
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9f1260773335f0828de5815cdad0662a4e50e04;p=emacs.git

Tweak point placement in gnus-summary-select-article-buffer

* lisp/gnus/gnus-sum.el (gnus-summary-select-article-buffer):
Tweak where point is placed because when the user selects the
article buffer, it's probably to cite something or click on
something, and not do anything with the headers.
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index e1789cdd599..b1e9d60e3b2 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7067,7 +7067,11 @@ buffer."
 	 'only-article
        'article)
      t)
-    (select-window (get-buffer-window gnus-article-buffer))))
+    (select-window (get-buffer-window gnus-article-buffer))
+    ;; If we've just selected the message, place point at the start of
+    ;; the body because that's probably where we want to be.
+    (when (bobp)
+      (article-goto-body))))
 
 (defun gnus-summary-universal-argument (arg)
   "Perform any operation on all articles that are process/prefixed."