Function: gnus-agent-cat-set-property

gnus-agent-cat-set-property is a byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-cat-set-property CATEGORY PROPERTY VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-cat-set-property (category property value)
  (if value
      (setcdr (or (assq property category)
                  (let ((cell (cons property nil)))
                    (setcdr category (cons cell (cdr category)))
                    cell))
              value)
    (let ((category category))
      (while (cond ((eq property (caadr category))
                    (setcdr category (cddr category))
                    nil)
                   (t
                    (setq category (cdr category)))))))
  category)