Function: nnselect-compress-artlist

nnselect-compress-artlist is a byte-compiled function defined in nnselect.el.gz.

Signature

(nnselect-compress-artlist ARTLIST)

Documentation

Compress ARTLIST.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnselect.el.gz
;;; Helper routines.
(defun nnselect-compress-artlist (artlist)
  "Compress ARTLIST."
  (if (consp artlist)
      artlist
    (let (selection)
      (pcase-dolist (`(,artgroup . ,arts)
                     (nnselect-categorize artlist #'nnselect-artitem-group))
	(let (list)
          (pcase-dolist (`(,rsv . ,articles)
			 (nnselect-categorize
                          arts #'nnselect-artitem-rsv #'nnselect-artitem-number))
            (push (cons rsv (gnus-compress-sequence (sort articles #'<)))
                  list))
          (push (cons artgroup list) selection)))
      selection)))