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