Function: gnus-group-make-useful-group

gnus-group-make-useful-group is an interactive and byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-group-make-useful-group GROUP METHOD)

Documentation

Create one of the groups described in gnus-useful-groups.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-make-useful-group (group method)
  "Create one of the groups described in `gnus-useful-groups'."
  (interactive
   (let ((entry (assoc (gnus-completing-read
			"Create group"
			(mapcar #'car gnus-useful-groups)
			t)
		       gnus-useful-groups)))
     (list (cadr entry)
	   ;; Don't use `caddr' here since macros within the
	   ;; `interactive' form won't be expanded.
	   (car (cddr entry))))
   gnus-group-mode)
  (setq method (copy-tree method))
  (let (entry)
    (while (setq entry (memq (assq 'eval method) method))
      (setcar entry (eval (cadar entry) t))))
  (gnus-group-make-group group method))