Function: gnus-pick-mode

gnus-pick-mode is an autoloaded, interactive and byte-compiled function defined in gnus-salt.el.gz.

Signature

(gnus-pick-mode &optional ARG)

Documentation

Minor mode for providing a pick-and-read interface in Gnus summary buffers.

This is a minor mode. If called interactively, toggle the Gnus-Pick mode mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is toggle. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer, evaluate gnus-pick-mode(var)/gnus-pick-mode(fun).

The mode's hook is called both when the mode is enabled and when it is disabled.

. gnus-pick-article-or-thread
<down-mouse-2> gnus-pick-mouse-pick-region
RET gnus-pick-start-reading
SPC gnus-pick-next-page
u gnus-pick-unmark-article-or-thread

Probably introduced at or before Emacs version 19.32.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-salt.el.gz
(define-minor-mode gnus-pick-mode
  "Minor mode for providing a pick-and-read interface in Gnus summary buffers.

\\{gnus-pick-mode-map}"
  :lighter " Pick" :keymap gnus-pick-mode-map
  (cond
   ((not (derived-mode-p 'gnus-summary-mode)) (setq gnus-pick-mode nil))
   ((not gnus-pick-mode)
    ;; FIXME: a buffer-local minor mode removing globally from a hook??
    (remove-hook 'gnus-message-setup-hook #'gnus-pick-setup-message))
   (t
    ;; Make sure that we don't select any articles upon group entry.
    (setq-local gnus-auto-select-first nil)
    ;; Change line format.
    (setq gnus-summary-line-format gnus-summary-pick-line-format)
    (setq gnus-summary-line-format-spec nil)
    (gnus-update-format-specifications nil 'summary)
    (gnus-update-summary-mark-positions)
    ;; FIXME: a buffer-local minor mode adding globally to a hook??
    (add-hook 'gnus-message-setup-hook #'gnus-pick-setup-message)
    (setq-local gnus-summary-goto-unread 'never)
    ;; Set up the menu.
    (when (gnus-visual-p 'pick-menu 'menu)
      (gnus-pick-make-menu-bar)))))