Function: gnus-group-toggle-subscription
gnus-group-toggle-subscription is an interactive and byte-compiled
function defined in gnus-group.el.gz.
Signature
(gnus-group-toggle-subscription GROUP &optional SILENT)
Documentation
Prompt for group, and toggle its subscription.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-toggle-subscription (group &optional silent)
"Prompt for group, and toggle its subscription."
(interactive (list (gnus-group-completing-read
nil nil (gnus-read-active-file-p)))
gnus-group-mode)
(let* ((newsrc (gnus-group-entry group))
(level (cond
(newsrc
;; Toggle subscription flag.
(if (<= (gnus-info-level (nth 1 newsrc))
gnus-level-subscribed)
(1+ gnus-level-subscribed)
gnus-level-default-subscribed))
((and (stringp group)
(or (not (gnus-read-active-file-p))
(gnus-active group)))
;; Add new newsgroup.
gnus-level-default-subscribed)
(t 'unsubscribe))))
(gnus-group-set-subscription group level silent)))