Function: gnus-group-add-to-virtual

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

Signature

(gnus-group-add-to-virtual N VGROUP)

Documentation

Add the current group to a virtual group.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-add-to-virtual (n vgroup)
  "Add the current group to a virtual group."
  (interactive (list current-prefix-arg
		     (gnus-group-completing-read "Add to virtual group"
						 nil t "nnvirtual:"))
	       gnus-group-mode)
  (unless (eq (car (gnus-find-method-for-group vgroup)) 'nnvirtual)
    (error "%s is not an nnvirtual group" vgroup))
  (gnus-close-group vgroup)
  (let* ((groups (gnus-group-process-prefix n))
	 (method (gnus-info-method (gnus-get-info vgroup))))
    (setcar (cdr method)
	    (concat
	     (nth 1 method) "\\|"
	     (mapconcat
	      (lambda (s)
		(gnus-group-remove-mark s)
		(concat "\\(^" (regexp-quote s) "$\\)"))
	      groups "\\|"))))
  (gnus-group-position-point))