Variable: gnus-group-tool-bar-gnome

gnus-group-tool-bar-gnome is a customizable variable defined in gnus-group.el.gz.

Value

((gnus-group-post-news "mail/compose")
 (gnus-agent-toggle-plugged "unplugged" t :help "Gnus is currently unplugged.  Click to work online." :visible
			    (and gnus-agent
				 (not gnus-plugged)))
 (gnus-agent-toggle-plugged "plugged" t :help "Gnus is currently plugged.  Click to work offline." :visible
			    (and gnus-agent gnus-plugged))
 (gnus-group-send-queue "mail/outbox" t :visible
			(and gnus-agent gnus-plugged)
			:help "Send articles from the queue group")
 (gnus-group-get-new-news "mail/inbox" nil :visible
			  (or
			   (not gnus-agent)
			   gnus-plugged))
 (gnus-topic-read-group "open" nil :visible
			(and
			 (boundp 'gnus-topic-mode)
			 gnus-topic-mode))
 (gnus-group-read-group "open" nil :visible
			(not
			 (and
			  (boundp 'gnus-topic-mode)
			  gnus-topic-mode)))
 (gnus-group-save-newsrc "save")
 (gnus-group-describe-group "describe")
 (gnus-group-toggle-subscription-at-point "gnus/toggle-subscription")
 (gnus-group-prev-unread-group "left-arrow")
 (gnus-group-next-unread-group "right-arrow")
 (gnus-group-exit "exit")
 (gmm-customize-mode "preferences" t :help "Edit mode preferences")
 (gnus-info-find-node "help"))

Documentation

List of functions for the group tool bar (GNOME style).

See gmm-tool-bar-from-list for the format of the list.

This variable was added, or its default value changed, in Emacs 23.1.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defcustom gnus-group-tool-bar-gnome
  '((gnus-group-post-news "mail/compose")
    ;; Some useful agent icons?  I don't use the agent so agent users should
    ;; suggest useful commands:
    (gnus-agent-toggle-plugged "unplugged" t
			       :help "Gnus is currently unplugged.  Click to work online."
                               :visible (and gnus-agent (not gnus-plugged)))
    (gnus-agent-toggle-plugged "plugged" t
			       :help "Gnus is currently plugged.  Click to work offline."
                               :visible (and gnus-agent gnus-plugged))
    ;; FIXME: gnus-agent-toggle-plugged (in gnus-agent-group-make-menu-bar)
    ;; should have a better help text.
    (gnus-group-send-queue "mail/outbox" t
			   :visible (and gnus-agent gnus-plugged)
			   :help "Send articles from the queue group")
    (gnus-group-get-new-news "mail/inbox" nil
			     :visible (or (not gnus-agent)
					  gnus-plugged))
    ;; FIXME: gnus-*-read-group should have a better help text.
    (gnus-topic-read-group "open" nil
			   :visible (and (boundp 'gnus-topic-mode)
					 gnus-topic-mode))
    (gnus-group-read-group "open" nil
			   :visible (not (and (boundp 'gnus-topic-mode)
					      gnus-topic-mode)))
    ;; (gnus-group-find-new-groups "???" nil)
    (gnus-group-save-newsrc "save")
    (gnus-group-describe-group "describe")
    (gnus-group-toggle-subscription-at-point "gnus/toggle-subscription")
    (gnus-group-prev-unread-group "left-arrow")
    (gnus-group-next-unread-group "right-arrow")
    (gnus-group-exit "exit")
    (gmm-customize-mode "preferences" t :help "Edit mode preferences")
    (gnus-info-find-node "help"))
  "List of functions for the group tool bar (GNOME style).

See `gmm-tool-bar-from-list' for the format of the list."
  :type '(repeat gmm-tool-bar-item)
  :version "23.1" ;; No Gnus
  :initialize 'custom-initialize-default
  :set 'gnus-group-tool-bar-update
  :group 'gnus-group)