diff lisp/gnus/gnus-topic.el @ 32:e04119814345 r19-15b99

Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/gnus/gnus-topic.el	Mon Aug 13 08:52:30 2007 +0200
+++ b/lisp/gnus/gnus-topic.el	Mon Aug 13 08:52:56 2007 +0200
@@ -236,8 +236,8 @@
 	result found)
     (while (and topology
 		(not (setq found (equal (caaar topology) topic)))
-		(not (setq result (gnus-topic-parent-topic topic
-							   (car topology)))))
+		(not (setq result (gnus-topic-parent-topic
+				   topic (car topology)))))
       (setq topology (cdr topology)))
     (or result (and found parent))))