From ddb00419bb5664b6ef1118122dc070c35836cc06 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 16 Sep 2005 02:01:09 +0000 Subject: [PATCH] Synch to No Gnus 200509160200. --- lisp/ChangeLog | 4 ++++ lisp/gnus.el | 5 +++++ 2 files changed, 9 insertions(+) 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 + + * gnus.el (gnus-group-startup-message): Bind image-load-path. + 2005-09-15 Romain Francoise * 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 -- 1.7.10.4