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

[gnus] / lisp / mm-util.el

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 2be5667..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)
@@ -1653,5 +1653,4 @@ gzip, bzip2, etc. are allowed."
 
 (provide 'mm-util)
 
-;; arch-tag: 94dc5388-825d-4fd1-bfa5-2100aa351238
 ;;; mm-util.el ends here