From 56ec2c1094d020f44fa4b9c56df9b1ef0321984c Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 01:54:51 +0200 Subject: [PATCH] Just return the image directories, not all directories in the path in addition to the image directories. --- lisp/ChangeLog | 5 ++++- lisp/mm-util.el | 6 +++--- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6abd2c6d7..45c798b2d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,10 @@ 2010-09-03 Lars Magne Ingebrigtsen + * 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 da5d96d51..8808b0b4e 100644 --- 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) -- 2.25.1