From 9f8cd2555fe03df9ff04737a7efc736bf79c2a91 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 4 Mar 2001 23:54:35 +0000 Subject: [PATCH] * gnus.el (gnus-info-find-node): Pretend to be `gnus-article-mode' in the article buffer. --- ChangeLog | 5 +++++ lisp/gnus.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index f6e36b2..047a746 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-03-04 Katsumi Yamaoka + + * lisp/gnus.el (gnus-info-find-node): Pretend to be + `gnus-article-mode' in the article buffer. + 2001-03-02 Katsumi Yamaoka * 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))) -- 1.7.10.4