Mercurial > hg > xemacs-beta
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) |