comparison lisp/gnus/gnus-topic.el @ 120:cca96a509cfe r20-1b12

Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children 585fb297b004
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
570 (while (and g unfound) 570 (while (and g unfound)
571 (when (gnus-group-goto-group (pop g) t) 571 (when (gnus-group-goto-group (pop g) t)
572 (forward-line 1) 572 (forward-line 1)
573 (setq unfound nil))) 573 (setq unfound nil)))
574 (when (and unfound 574 (when (and unfound
575 topic
575 (not (gnus-topic-goto-missing-topic topic))) 576 (not (gnus-topic-goto-missing-topic topic)))
576 (gnus-topic-insert-topic-line 577 (gnus-topic-insert-topic-line
577 topic t t (car (gnus-topic-find-topology topic)) nil 0))))) 578 topic t t (car (gnus-topic-find-topology topic)) nil 0)))))
578 579
579 (defun gnus-topic-goto-missing-topic (topic) 580 (defun gnus-topic-goto-missing-topic (topic)