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
;; Could not find source code, showing raw function object.
#[(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))))))
  (t)]