Function: gnus-group-list-active
gnus-group-list-active is an interactive and byte-compiled function
defined in gnus-group.el.gz.
Signature
(gnus-group-list-active)
Documentation
List all groups that are available from the server(s).
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-list-active ()
"List all groups that are available from the server(s)."
(interactive nil gnus-group-mode)
;; First we make sure that we have really read the active file.
(unless (gnus-read-active-file-p)
(let ((gnus-read-active-file t)
(gnus-agent gnus-plugged)); If we're actually plugged, store the active file in the agent.
(gnus-read-active-file)))
;; Find all groups and sort them.
(let ((buffer-read-only nil))
(erase-buffer)
(dolist (group (sort (hash-table-keys gnus-active-hashtb) #'string<))
(add-text-properties
(point) (prog1 (1+ (point))
(insert " *: "
group
"\n"))
(list 'gnus-group group
'gnus-unread t
'gnus-level (inline (gnus-group-level group)))))
(goto-char (point-min))))