Function: gnus-group-mark-group

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

Signature

(gnus-group-mark-group N &optional UNMARK NO-ADVANCE NO-TOGGLE)

Documentation

Mark the current group.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-mark-group (n &optional unmark no-advance no-toggle)
  "Mark the current group."
  (interactive "p" gnus-group-mode)
  (let ((buffer-read-only nil)
	group)
    (while (and (> n 0)
		(not (eobp)))
      (when (setq group (gnus-group-group-name))
	;; Go to the mark position.
	(beginning-of-line)
	(forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
	(delete-char 1)
	(if (and gnus-process-mark-toggle (not no-toggle))
	    (if (memq group gnus-group-marked)
		(gnus-group-mark-update group t)
	      (gnus-group-mark-update group))
	  (gnus-group-mark-update group unmark)))
      (unless no-advance
	(gnus-group-next-group 1))
      (decf n))
    (gnus-group-position-point)
    n))