From: yamaoka <yamaoka>
Date: Tue, 5 Oct 2004 23:13:51 +0000 (+0000)
Subject: Synch to No Gnus 200410052313.
X-Git-Tag: t-gnus-6_17_4-quimby-~726
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=833d5423ef927bb86811de71954935d96bafe439;p=elisp%2Fgnus.git-

Synch to No Gnus 200410052313.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad8a107..c29b711 100644
--- 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 9023d03..d1fe02e 100644
--- 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".