Synch to No Gnus 200509160200.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15f0723..d319984 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-09-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.el (gnus-group-startup-message): Bind image-load-path.
+
 2005-09-15  Romain Francoise  <romain@orebokech.com>
 
        * message.el (message-fill-paragraph): Clarify docstring.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 992845e..30b2f75 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1010,6 +1010,11 @@ be set in `.emacs' instead."
         (let* ((bg (face-background 'default))
                (fg (face-foreground 'gnus-splash))
                (data-directory (nnheader-find-etc-directory "images/gnus"))
+               (image-load-path (cond (data-directory
+                                       (list data-directory))
+                                      ((boundp 'image-load-path)
+                                       (symbol-value 'image-load-path))
+                                      (t load-path)))
                (image (find-image
                        `((:type xpm :file "gnus.xpm"
                                 :color-symbols