[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el,v [EMACS_22_BASE]

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Miles Bader <miles>     08/02/04 09:42:17

Index: gnus.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus.el,v
retrieving revision 1.59.2.6
retrieving revision 1.59.2.7
diff -u -b -r1.59.2.6 -r1.59.2.7
--- gnus.el     7 Jan 2008 01:22:42 -0000       1.59.2.6
+++ gnus.el     4 Feb 2008 09:42:16 -0000       1.59.2.7
@@ -1001,6 +1001,11 @@
    ((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))