Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-topic.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 7d55a9ba150c
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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."