From: yamaoka <yamaoka>
Date: Sun, 4 Mar 2001 23:54:35 +0000 (+0000)
Subject: * gnus.el (gnus-info-find-node): Pretend to be `gnus-article-mode' in the
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f8cd2555fe03df9ff04737a7efc736bf79c2a91;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 f6e36b2..047a746 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 7252a40..55add41 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2179,7 +2179,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)))