From: yamaoka <yamaoka>
Date: Wed, 25 Jan 2006 23:19:20 +0000 (+0000)
Subject: (nnheader-image-load-path): Synch it up with mm-image-load-path in mm-util.el.
X-Git-Tag: t-gnus-6_17_4-quimby-~130
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f8be37a68c80744b85e9bd7a81a54d1ad052f2ae;p=elisp%2Fgnus.git-

(nnheader-image-load-path): Synch it up with mm-image-load-path in mm-util.el.
---

diff --git a/ChangeLog b/ChangeLog
index e1db4f2..2604851 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/nnheader.el (nnheader-image-load-path): Synch it up with
+	mm-image-load-path in mm-util.el.
+
 2005-01-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/message.el (message-tool-bar-gnome): Comment
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 193bcbf..f06f55d 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -156,11 +156,12 @@ This variable is a substitute for `mm-text-coding-system-for-write'.")
   (defun nnheader-image-load-path (&optional package)
     (let (dir result)
       (dolist (path load-path (nreverse result))
-	(if (file-directory-p
-	     (setq dir (concat (file-name-directory
-				(directory-file-name path))
-			       "etc/" (or package "gnus/"))))
-	    (push dir result))
+	(when (and path
+		   (file-directory-p
+		    (setq dir (concat (file-name-directory
+				       (directory-file-name path))
+				      "etc/images/" (or package "gnus/")))))
+	  (push dir result))
 	(push path result))))
   (defalias 'mm-image-load-path 'nnheader-image-load-path)