Function: gnus-group-parameter-value

gnus-group-parameter-value is a byte-compiled function defined in gnus.el.gz.

Signature

(gnus-group-parameter-value PARAMS SYMBOL &optional ALLOW-LIST PRESENT-P)

Documentation

Return the value of SYMBOL in group PARAMS.

If ALLOW-LIST, also allow list as a result.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
(defun gnus-group-parameter-value (params symbol &optional
					  allow-list present-p)
  "Return the value of SYMBOL in group PARAMS.
If ALLOW-LIST, also allow list as a result."
  ;; We only wish to return group parameters (dotted lists) and
  ;; not local variables, which may have the same names.
  ;; But first we handle single elements...
  (or (car (memq symbol params))
      ;; Handle alist.
      (let (elem)
	(catch 'found
	  (while (setq elem (pop params))
	    (when (and (consp elem)
		       (eq (car elem) symbol)
		       (or allow-list
			   (atom (cdr elem))))
	      (throw 'found (if present-p (list (cdr elem))
			      (cdr elem)))))))))