Function: nnir-make-specs

nnir-make-specs is a byte-compiled function defined in nnir.el.gz.

This function is obsolete since 28.1; This function should no longer be used.

Signature

(nnir-make-specs NNIR-EXTRA-PARMS &optional SPECS)

Documentation

Make the query-spec and group-spec for a search with NNIR-EXTRA-PARMS.

Query for the specs, or use SPECS.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/nnir.el.gz
(defun nnir-make-specs (nnir-extra-parms &optional specs)
  "Make the query-spec and group-spec for a search with NNIR-EXTRA-PARMS.
Query for the specs, or use SPECS."
  (let* ((group-spec
	  (or (cdr (assq 'nnir-group-spec specs))
	      (if (gnus-server-server-name)
		  (list (list (gnus-server-server-name)))
		(seq-group-by
		 (lambda (elt) (gnus-group-server elt))
		 (or gnus-group-marked
		     (if (gnus-group-group-name)
			 (list (gnus-group-group-name))
		       (cdr (assoc (gnus-group-topic-name) gnus-topic-alist))))))))
	 (query-spec
	  (or (cdr (assq 'nnir-query-spec specs))
	      (apply
	       #'append
	       (list (cons 'query
			   (read-string "Query: " nil 'nnir-search-history)))
	       (when nnir-extra-parms
		 (mapcar
		  (lambda (x)
		    (nnir-read-parms (nnir-server-to-search-engine (car x))))
		  group-spec))))))
    (list (cons 'nnir-query-spec query-spec)
	  (cons 'nnir-group-spec group-spec))))