(gnus-topic-hierarchical-parameters): Use gnus-current-topics instead of

 gnus-current-topic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb2bfdd..2d61fd7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-06  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-topic.el (gnus-topic-hierarchical-parameters): Use
+       gnus-current-topics instead of gnus-current-topic.
+
 2004-10-06  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-sum.el (gnus-summary-show-article): Use with-current-buffer.

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 9d7ec35..ff7e59a 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -395,7 +395,7 @@ If RECURSIVE is t, return groups in its subtopics too."
 (defun gnus-topic-hierarchical-parameters (topic)
   "Return a topic list computed for TOPIC."
   (let ((params-list (nreverse (mapcar 'gnus-topic-parameters
-                                      (gnus-current-topic topic))))
+                                      (gnus-current-topics topic))))
        param out params)
     ;; We probably have lots of nil elements here, so
     ;; we remove them.  Probably faster than doing this "properly".