let-bound. Reported by Harald Hanche-Olsen <hanche@math.ntnu.no>.
+2008-02-03 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gnus.el (gnus-group-startup-message): Add `find-image' call before
+ image-load-path is let-bound. Reported by Harald Hanche-Olsen
+ <hanche@math.ntnu.no>.
+
2008-02-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-describe-bindings): Work for draft group.
((and
(fboundp 'find-image)
(display-graphic-p)
+ ;; Make sure the library defining `image-load-path' is loaded
+ ;; (`find-image' is autoloaded) (and discard the result). Else, we may
+ ;; get "defvar ignored because image-load-path is let-bound" when calling
+ ;; `find-image' below.
+ (or (find-image '(nil (:type xpm :file "gnus.xpm"))) t)
(let* ((data-directory (nnheader-find-etc-directory "images/gnus"))
(image-load-path (cond (data-directory
(list data-directory))