Function: gnus-group-set-subscription-at-point

gnus-group-set-subscription-at-point is a byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-group-set-subscription-at-point N DO-SUB)

Documentation

Set subscription of the current group for next N groups.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-set-subscription-at-point (n do-sub)
  "Set subscription of the current group for next N groups."
  (dolist (group (gnus-group-process-prefix n))
    (gnus-group-remove-mark group)
    (gnus-group-set-subscription
     group
     (cl-case do-sub
       (unsubscribe gnus-level-default-unsubscribed)
       (subscribe gnus-level-default-subscribed)
       (toggle (if (<= (gnus-group-group-level) gnus-level-subscribed)
                   gnus-level-default-unsubscribed
                 gnus-level-default-subscribed))
       (t (error "Unknown subscription setting %s" do-sub)))
     t)
    (gnus-group-update-group-line))
  (gnus-group-next-group 1))