Function: gnus-group-list-plus
gnus-group-list-plus is an interactive and byte-compiled function
defined in gnus-group.el.gz.
Signature
(gnus-group-list-plus &optional ARGS)
Documentation
List groups plus the current selection.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-list-plus (&optional _args)
"List groups plus the current selection."
(interactive nil gnus-group-mode)
(let ((gnus-group-listed-groups (gnus-group-listed-groups))
(gnus-group-list-mode gnus-group-list-mode) ;; Save it.
func)
(push last-command-event unread-command-events)
(push ?A unread-command-events)
(let (gnus-pick-mode keys)
(setq keys (read-key-sequence nil)
func (lookup-key (current-local-map) keys)))
(if (or (not func)
(numberp func))
(ding)
(call-interactively func))))