Function: gnus-agent-add-group

gnus-agent-add-group is an interactive and byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-add-group CATEGORY ARG)

Documentation

Add the current group to an agent category.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-add-group (category arg)
  "Add the current group to an agent category."
  (interactive
   (list
    (intern
     (gnus-completing-read
      "Add to category"
      (mapcar (lambda (cat) (symbol-name (car cat)))
	      gnus-category-alist)
      t))
    current-prefix-arg))
  (let ((cat (assq category gnus-category-alist))
	c groups)
    (gnus-group-iterate arg
      (lambda (group)
	(when (gnus-agent-cat-groups (setq c (gnus-group-category group)))
	  (setf (gnus-agent-cat-groups c)
                (delete group (gnus-agent-cat-groups c))))
	(push group groups)))
    (setf (gnus-agent-cat-groups cat)
          (nconc (gnus-agent-cat-groups cat) groups))
    (gnus-category-write)))