Function: gnus-category-edit-predicate

gnus-category-edit-predicate is an interactive and byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-category-edit-predicate CATEGORY)

Documentation

Edit the predicate for CATEGORY.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-category-edit-predicate (category)
  "Edit the predicate for CATEGORY."
  (interactive (list (gnus-category-name)))
  (let ((info (assq category gnus-category-alist)))
    (gnus-edit-form
     (gnus-agent-cat-predicate info)
     (format "Editing the select predicate for category %s" category)
     (lambda (predicate)
       ;; Avoid run-time execution of setf form
       ;; (setf (gnus-agent-cat-predicate (assq ',category gnus-category-alist))
       ;;       predicate)
       ;; use its expansion instead:
       (gnus-agent-cat-set-property (assq category gnus-category-alist)
                                    'agent-predicate predicate)
       (gnus-category-write)
       (gnus-category-list)))))