Function: gnus-topic-clean-alist

gnus-topic-clean-alist is a byte-compiled function defined in gnus-topic.el.gz.

Signature

(gnus-topic-clean-alist)

Documentation

Remove bogus groups from the topic alist.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-topic.el.gz
;;; Maintenance

(defun gnus-topic-clean-alist ()
  "Remove bogus groups from the topic alist."
  (let ((topic-alist gnus-topic-alist)
	result topic)
    (unless gnus-killed-hashtb
      (gnus-make-hashtable-from-killed))
    (while (setq topic (pop topic-alist))
      (let ((topic-name (pop topic))
	    group filtered-topic)
	(while (setq group (pop topic))
	  (when (and (or (gnus-active group)
			 (gnus-info-method (gnus-get-info group)))
		     (not (gethash group gnus-killed-hashtb)))
	    (push group filtered-topic)))
	(push (cons topic-name (nreverse filtered-topic)) result)))
    (setq gnus-topic-alist (nreverse result))))