Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
234 (setq topology gnus-topic-topology)) 234 (setq topology gnus-topic-topology))
235 (let ((parent (car (pop topology))) 235 (let ((parent (car (pop topology)))
236 result found) 236 result found)
237 (while (and topology 237 (while (and topology
238 (not (setq found (equal (caaar topology) topic))) 238 (not (setq found (equal (caaar topology) topic)))
239 (not (setq result (gnus-topic-parent-topic topic 239 (not (setq result (gnus-topic-parent-topic
240 (car topology))))) 240 topic (car topology)))))
241 (setq topology (cdr topology))) 241 (setq topology (cdr topology)))
242 (or result (and found parent)))) 242 (or result (and found parent))))
243 243
244 (defun gnus-topic-next-topic (topic &optional previous) 244 (defun gnus-topic-next-topic (topic &optional previous)
245 "Return the next sibling of TOPIC." 245 "Return the next sibling of TOPIC."