Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-topic.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
397 (topicl (reverse topicl)) 397 (topicl (reverse topicl))
398 (all-entries entries) 398 (all-entries entries)
399 (point-max (point-max)) 399 (point-max (point-max))
400 (unread 0) 400 (unread 0)
401 (topic (car type)) 401 (topic (car type))
402 info entry end active) 402 info entry end active tick)
403 ;; Insert any sub-topics. 403 ;; Insert any sub-topics.
404 (while topicl 404 (while topicl
405 (incf unread 405 (incf unread
406 (gnus-topic-prepare-topic 406 (gnus-topic-prepare-topic
407 (pop topicl) (1+ level) list-level all 407 (pop topicl) (1+ level) list-level all
427 (when (and (listp entry) 427 (when (and (listp entry)
428 (numberp (car entry)) 428 (numberp (car entry))
429 (not (member (gnus-info-group (setq info (nth 2 entry))) 429 (not (member (gnus-info-group (setq info (nth 2 entry)))
430 gnus-topic-tallied-groups))) 430 gnus-topic-tallied-groups)))
431 (push (gnus-info-group info) gnus-topic-tallied-groups) 431 (push (gnus-info-group info) gnus-topic-tallied-groups)
432 (incf unread (car entry)))) 432 (incf unread (car entry)))
433 (when (and (listp entry)
434 (numberp (car entry)))
435 (setq tick t)))
433 (goto-char beg) 436 (goto-char beg)
434 ;; Insert the topic line. 437 ;; Insert the topic line.
435 (when (and (not silent) 438 (when (and (not silent)
436 (or gnus-topic-display-empty-topics 439 (or gnus-topic-display-empty-topics ;We want empty topics
437 (not (zerop unread)) 440 (not (zerop unread)) ;Non-empty
438 (/= point-max (point-max)))) 441 tick ;Ticked articles
442 (/= point-max (point-max)))) ;Unactivated groups
439 (gnus-extent-start-open (point)) 443 (gnus-extent-start-open (point))
440 (gnus-topic-insert-topic-line 444 (gnus-topic-insert-topic-line
441 (car type) visiblep 445 (car type) visiblep
442 (not (eq (nth 2 type) 'hidden)) 446 (not (eq (nth 2 type) 'hidden))
443 level all-entries unread)) 447 level all-entries unread))
927 'gnus-topic-update-topics-containing-group) 931 'gnus-topic-update-topics-containing-group)
928 (set (make-local-variable 'gnus-group-sort-alist-function) 932 (set (make-local-variable 'gnus-group-sort-alist-function)
929 'gnus-group-sort-topic) 933 'gnus-group-sort-topic)
930 (setq gnus-group-change-level-function 'gnus-topic-change-level) 934 (setq gnus-group-change-level-function 'gnus-topic-change-level)
931 (setq gnus-goto-missing-group-function 'gnus-topic-goto-missing-group) 935 (setq gnus-goto-missing-group-function 'gnus-topic-goto-missing-group)
932 (gnus-make-local-hook 'gnus-check-bogus-groups-hook) 936 (make-local-hook 'gnus-check-bogus-groups-hook)
933 (add-hook 'gnus-check-bogus-groups-hook 'gnus-topic-clean-alist) 937 (add-hook 'gnus-check-bogus-groups-hook 'gnus-topic-clean-alist)
934 (setq gnus-topology-checked-p nil) 938 (setq gnus-topology-checked-p nil)
935 ;; We check the topology. 939 ;; We check the topology.
936 (when gnus-newsrc-alist 940 (when gnus-newsrc-alist
937 (gnus-topic-check-topology)) 941 (gnus-topic-check-topology))