Function: gnus-group-sort-selected-flat

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

Signature

(gnus-group-sort-selected-flat GROUPS FUNC REVERSE)

Documentation

Sort only the selected GROUPS, using FUNC.

If REVERSE is non-nil, reverse the sorting.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-sort-selected-flat (groups func reverse)
  "Sort only the selected GROUPS, using FUNC.
If REVERSE is non-nil, reverse the sorting."
  (let ((infos (sort
		(mapcar #'gnus-get-info groups)
		func))
	sorted-groups)
    (when reverse
      (setq infos (nreverse infos)))
    (setq sorted-groups (mapcar #'gnus-info-group infos))

    ;; Find the original locations of GROUPS in `gnus-group-list', and
    ;; replace each one, in order, with a group from SORTED-GROUPS.
    (dolist (i (sort (mapcar (lambda (g)
			       (seq-position gnus-group-list g))
			     groups)
		     #'<))
      (setf (nth i gnus-group-list)
	    (pop sorted-groups)))))