Function: nnselect-request-create-group

nnselect-request-create-group is a byte-compiled function defined in nnselect.el.gz.

Signature

(nnselect-request-create-group GROUP &optional SERVER ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnselect.el.gz
(deffoo nnselect-request-create-group (group &optional _server args)
  (message "Creating nnselect group %s" group)
  (let* ((group (gnus-group-prefixed-name  group '(nnselect "nnselect")))
         (specs (assq 'nnselect-specs args))
         (artlist (alist-get 'nnselect-artlist args))
         (otherargs (assq-delete-all 'nnselect-specs args))
         (function-spec
          (or  (alist-get 'nnselect-function specs)
               (intern (completing-read "Function: " obarray #'functionp))))
         (args-spec
          (or  (alist-get 'nnselect-args specs)
               (read-from-minibuffer "Args: " nil nil t nil "nil")))
         (nnselect-specs (list (cons 'nnselect-function function-spec)
                               (cons 'nnselect-args args-spec))))
    (gnus-group-set-parameter group 'nnselect-specs nnselect-specs)
    (dolist (arg otherargs)
      (gnus-group-set-parameter group (car arg) (cdr arg)))
    (if artlist
        (nnselect-store-artlist group artlist)
      (nnselect-generate-artlist group nnselect-specs
                                 (gnus-get-info group))))
  t)