From c90984250b31fa0d33064e85c3a243e6018f9592 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 17 Apr 2018 20:02:26 +0200 Subject: [PATCH] Tweak point placement in gnus-summary-select-article-buffer * lisp/gnus/gnus-sum.el (gnus-summary-select-article-buffer): Ensure that point is where it's supposed to be after switching to the article buffer. --- lisp/gnus/gnus-sum.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 234d527cd10..596afd15525 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -7063,17 +7063,20 @@ buffer." (or (get-buffer-window gnus-article-buffer) (eq gnus-current-article (gnus-summary-article-number)) (gnus-summary-show-article)) - (gnus-configure-windows - (if gnus-widen-article-window - 'only-article - 'article) - t) - (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) - (forward-char -1)))) + (let ((point (with-current-buffer gnus-article-buffer + (point)))) + (gnus-configure-windows + (if gnus-widen-article-window + 'only-article + 'article) + t) + (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. + (if (not (bobp)) + (goto-char point) + (article-goto-body) + (forward-char -1))))) (defun gnus-summary-universal-argument (arg) "Perform any operation on all articles that are process/prefixed." -- 2.39.5