From b7fdfba5443141115229915bc2364103bc63286f Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 6 May 2002 16:52:06 +0000 Subject: [PATCH] * gnus-topic.el (gnus-group-topic-parameters): Work when group buffer doesn't show group. From Matt Armstrong . --- lisp/ChangeLog | 5 +++++ lisp/gnus-topic.el | 12 ++++++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d5cd6d92..d87788f2e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-05-06 Simon Josefsson + + * gnus-topic.el (gnus-group-topic-parameters): Work when group + buffer doesn't show group. From Matt Armstrong . + 2002-05-06 Josh Huber * mml2015.el (mml2015-gpg-encrypt): Changed name of optional diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index b4a404281..65618a9bf 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -380,9 +380,17 @@ If RECURSIVE is t, return groups in its subtopics too." "Compute the group parameters for GROUP taking into account inheritance from topics." (let ((params-list (copy-sequence (gnus-group-get-parameter group)))) (save-excursion - (gnus-group-goto-group group) (nconc params-list - (gnus-topic-hierarchical-parameters (gnus-current-topic)))))) + (gnus-topic-hierarchical-parameters + ;; First we try to go to the group within the group + ;; buffer and find the topic for the group that way. + ;; This hopefully copes well with groups that are in + ;; more than one topic. Failing that (i.e. when the + ;; group isn't visible in the group buffer) we find a + ;; topic for the group via gnus-group-topic. + (or (and (gnus-group-goto-group group) + (gnus-current-topic)) + (gnus-group-topic group))))))) (defun gnus-topic-hierarchical-parameters (topic) "Return a topic list computed for TOPIC." -- 2.34.1