Function: numbers-by-group--inliner

numbers-by-group--inliner is a function defined in nnselect.el.gz.

Signature

(numbers-by-group--inliner INLINE--FORM ARTICLES &optional TYPE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnselect.el.gz
;; Closure converted to defun by helpful.
(defun numbers-by-group--inliner
    (inline--form articles &optional type)
  (ignore inline--form)
  (catch 'inline--just-use
    (list 'cond
	  (list
	   (list 'eq type
		 (list 'quote 'range))
	   (list 'nnselect-categorize
		 (list 'range-uncompress articles)
		 (list 'function 'nnselect-article-group)
		 (list 'function 'nnselect-article-number)))
	  (list
	   (list 'eq type
		 (list 'quote 'tuple))
	   (list 'nnselect-categorize articles
		 (list 'lambda
		       (list 'elem)
		       (list 'nnselect-article-group
			     (list 'car 'elem)))
		 (list 'lambda
		       (list 'elem)
		       (list 'cons
			     (list 'nnselect-article-number
				   (list 'car 'elem))
			     (list 'cdr 'elem)))))
	  (list t
		(list 'nnselect-categorize articles
		      (list 'function 'nnselect-article-group)
		      (list 'function 'nnselect-article-number))))))