From: yamaoka <yamaoka>
Date: Sun, 4 Mar 2001 23:55:23 +0000 (+0000)
Subject: * gnus.el (gnus-info-find-node): Pretend to be `gnus-article-mode' in the
X-Git-Tag: t-gnus-6_15_0-10-quimby~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=493584f2869b01a13e022832ad0209d689eeaaaf;p=elisp%2Fgnus.git-

* gnus.el (gnus-info-find-node): Pretend to be `gnus-article-mode' in the
 article buffer.
---

diff --git a/ChangeLog b/ChangeLog
index 6422b03..a837097 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-04  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus.el (gnus-info-find-node): Pretend to be
+	`gnus-article-mode' in the article buffer.
+
 2001-03-02  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/nnshimbun.el (nnshimbun-kinsoku-eol-list): Simplified.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 700d055..a731da1 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2346,7 +2346,9 @@ STRINGS will be evaluated in normal `or' order."
 	     (or gnus-info-filename
 		 (get-language-info current-language-environment 'gnus-info)
 		 "gnus")
-	     (cadr (assq major-mode gnus-info-nodes))))
+	     (or (cadr (assq major-mode gnus-info-nodes))
+		 (and (eq (current-buffer) (get-buffer gnus-article-buffer))
+		      (cadr (assq 'gnus-article-mode gnus-info-nodes))))))
     (setq gnus-info-buffer (current-buffer))
     (gnus-configure-windows 'info)))