Function: gnus-group-make-tool-bar

gnus-group-make-tool-bar is a byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-group-make-tool-bar &optional FORCE)

Documentation

Make a group mode tool bar from gnus-group-tool-bar.

When FORCE, rebuild the tool bar.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-make-tool-bar (&optional force)
  "Make a group mode tool bar from `gnus-group-tool-bar'.
When FORCE, rebuild the tool bar."
  (when (and (boundp 'tool-bar-mode)
	     tool-bar-mode
             (display-graphic-p)
	     (or (not gnus-group-tool-bar-map) force))
    (let* ((load-path
	    (image-load-path-for-library
	     "gnus" "gnus/toggle-subscription.xpm" nil t))
           (image-load-path (cons (car load-path) image-load-path))
	   (map (gmm-tool-bar-from-list gnus-group-tool-bar
					gnus-group-tool-bar-zap-list
					'gnus-group-mode-map)))
      (if map
	  (setq-local tool-bar-map map))))
  gnus-group-tool-bar-map)