Just return the image directories, not all directories in the path in addition to...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6abd2c6..45c798b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,10 @@
 2010-09-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mm-util.el (mm-image-load-path): Just return the image directories,
+       not all directories in the path in addition to the image directories.
+
        * gnus-html.el (gnus-html-put-image): Allow images to be removed.
-       (gnus-html-wash-tags): Add a new `i' command to insert images. 
+       (gnus-html-wash-tags): Add a new `i' command to insert images.
        (gnus-html-insert-image): New command and keystroke.
        (gnus-html-redisplay-with-images): New command and keystroke.
        (gnus-html-show-images): Renamed command.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index da5d96d..8808b0b 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1431,14 +1431,14 @@ If SUFFIX is non-nil, add that at the end of the file name."
 
 (defun mm-image-load-path (&optional package)
   (let (dir result)
-    (dolist (path load-path (nreverse result))
+    (dolist (path load-path)
       (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))))
+       (push dir result)))
+    (nreverse result)))
 
 ;; Fixme: This doesn't look useful where it's used.
 (if (fboundp 'detect-coding-region)