(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 (file)
--- 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 (file)
--- 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)