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.

. 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

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.

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)))))