Function: gnus-topic-grok-active

gnus-topic-grok-active is a byte-compiled function defined in gnus-topic.el.gz.

Signature

(gnus-topic-grok-active &optional FORCE)

Documentation

Parse all active groups and create topic structures for them.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-topic.el.gz
;;; Topic-active functions

(defun gnus-topic-grok-active (&optional force)
  "Parse all active groups and create topic structures for them."
  ;; First we make sure that we have really read the active file.
  (when (or force
	    (not gnus-topic-active-alist))
    ;; Get a list of all groups available.
    (let ((groups (sort (hash-table-keys gnus-active-hashtb) #'string<)))
      ;; Init the variables.
      (setq gnus-topic-active-topology (list (list "" 'visible)))
      (setq gnus-topic-active-alist nil)
      ;; Descend the top-level hierarchy.
      (gnus-topic-grok-active-1 gnus-topic-active-topology groups)
      ;; Set the top-level topic names to something nice.
      (setcar (car gnus-topic-active-topology) "Gnus active")
      (setcar (car gnus-topic-active-alist) "Gnus active"))))