(gnus-article-prepare): Set up `gnus-article-current-summary' of

gnus-article-buffer.
(gnus-request-article-this-buffer): Don't set up
`gnus-article-current-summary'.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 830e8bf..02480f7 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2100,6 +2100,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                (gnus-run-hooks 'gnus-article-prepare-hook)
                ;; Display message.
                (funcall method)
+               ;; Associate this article with the current summary buffer.
+               (setq gnus-article-current-summary summary-buffer)
                ;; Perform the article display hooks.
                (gnus-run-hooks 'gnus-article-display-hook))
              ;; Do page break.
@@ -2496,9 +2498,6 @@ If given a prefix, show the hidden text instead."
           ;; It was a pseudo.
           (t article)))
 
-      ;; Associate this article with the current summary buffer.
-      (setq gnus-article-current-summary gnus-summary-buffer)
-
       ;; Update sparse articles.
       (when (and do-update-line
                 (or (numberp article)