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 (lambda (g)
			    (gnus-get-info g))
			  groups)
		  func)))
      (setq gnus-group-list
	    (mapcar (lambda (i)
		      (gnus-info-group i))
		    sorted-infos))
      (when reverse
	(setq gnus-group-list (nreverse gnus-group-list)))
      (setq gnus-group-list (cons "dummy.group" gnus-group-list)))))