From: morioka <morioka>
Date: Mon, 29 Jun 1998 12:13:25 +0000 (+0000)
Subject: (gnus-article-prepare): Set up `gnus-article-current-summary' of
X-Git-Tag: gnus-6_7_7~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=84ac6eaf1d970bf4aa83d9e345d16bad42b51a07;p=elisp%2Fgnus.git-

(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
--- 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)