;;(let (image icon from to overlay)
;; ;; The function `find-image' will look for an image first on `load-path'
;; ;; and then in `data-directory'.
;;(let (image icon from to overlay)
;; ;; The function `find-image' will look for an image first on `load-path'
;; ;; and then in `data-directory'.
;; (setq image (find-image (list (list :type 'xpm :file wl-nntp-folder-icon
;; :ascent 'center)))))
;; ;; `propertize' is a convenient function in such a case.
;; (setq image (find-image (list (list :type 'xpm :file wl-nntp-folder-icon
;; :ascent 'center)))))
;; ;; `propertize' is a convenient function in such a case.
(defun wl-e21-setup-toolbar (bar)
(when (and wl-use-toolbar
(wl-e21-display-image-p))
(defun wl-e21-setup-toolbar (bar)
(when (and wl-use-toolbar
(wl-e21-display-image-p))
(when (setq image (find-image `((:type xpm :file ,name
:ascent center))))
(setq image (put icon 'image (propertize name
(when (setq image (find-image `((:type xpm :file ,name
:ascent center))))
(setq image (put icon 'image (propertize name