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 e1789cdd5995d581bb8f391a20bed7ba04705e2d..b1e9d60e3b2f5c148940132865055591c79b51e9 100644 (file)
--- 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."