From: yoichi <yoichi>
Date: Sat, 19 Jun 2004 10:21:58 +0000 (+0000)
Subject: * wl-e21.el (wl-e21-display-image-p): Respect `wl-highlight-folder-with-icon'.
X-Git-Tag: wl-2_11_31~102
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e7974f38665eb024d0e206185a4e5a7611126113;p=elisp%2Fwanderlust.git

* wl-e21.el (wl-e21-display-image-p): Respect `wl-highlight-folder-with-icon'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0caff63..7b99301 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-06-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* wl-e21.el (wl-e21-display-image-p): Respect
+	`wl-highlight-folder-with-icon'.
+
 	* wl-summary.el (wl-summary-update-mark-and-highlight-window):
 	Respect value of `wl-summary-highlight'.
 
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index df72aa1..fab1a62 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -171,7 +171,8 @@
 
 (eval-when-compile
   (defmacro wl-e21-display-image-p ()
-    '(image-type-available-p 'xpm)))
+    '(and wl-highlight-folder-with-icon
+	  (image-type-available-p 'xpm))))
 
 (defun wl-e21-setup-toolbar (bar)
   (when (and wl-use-toolbar