Function: gnus-group-sort-flat

gnus-group-sort-flat is a byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-group-sort-flat FUNC REVERSE)

Documentation

Sort groups in a flat list using sorting function FUNC.

If REVERSE is non-nil, reverse the sort order.

This function sets a new value for gnus-group-list; its return value is disregarded.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-sort-flat (func reverse)
  "Sort groups in a flat list using sorting function FUNC.
If REVERSE is non-nil, reverse the sort order.

This function sets a new value for `gnus-group-list'; its return
value is disregarded."
  (when func
    (let* ((groups (remove "dummy.group" gnus-group-list))
	   (sorted-infos (sort (mapcar #'gnus-get-info groups) func)))
      (setq gnus-group-list (mapcar #'gnus-info-group sorted-infos))
      (when reverse
	(setq gnus-group-list (nreverse gnus-group-list)))
      (setq gnus-group-list (cons "dummy.group" gnus-group-list)))))