From: yamaoka <yamaoka>
Date: Fri, 16 Sep 2005 02:01:09 +0000 (+0000)
Subject: Synch to No Gnus 200509160200.
X-Git-Tag: t-gnus-6_17_4-quimby-~363
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ddb00419bb5664b6ef1118122dc070c35836cc06;p=elisp%2Fgnus.git-

Synch to No Gnus 200509160200.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15f0723..d319984 100644
--- 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
--- 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