From: yamaoka <yamaoka>
Date: Tue, 20 Feb 2001 02:02:03 +0000 (+0000)
Subject: * wl-e21.el (wl-highlight-folder-current-line): Call `wl-folder-init-icons'
X-Git-Tag: wl-2_8-root^2~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2bf6e66c045671289a13caa59a5e14f3f95fd040;p=elisp%2Fwanderlust.git

* wl-e21.el (wl-highlight-folder-current-line): Call `wl-folder-init-icons'
 when folder icons have not been initialized.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index db1c250..6ca4e32 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-20  Katsumi Yamaoka    <yamaoka@jpl.org>
 
+	* wl-e21.el (wl-highlight-folder-current-line): Call
+	`wl-folder-init-icons' when folder icons have not been initialized.
+
 	* wl-vars.el (wl-demo-display-logo): Add `bitmap' to the selection.
 
 	* wl-demo.el: Work also with BITMAP-MULE under Emacs 21.
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 2988fd5..8fdf43f 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -341,6 +341,8 @@
 		(overlay-put overlay 'wl-e21-icon t)
 		(overlay-put overlay 'evaporate t))
 	      (let (type)
+		(unless (get (caar wl-folder-internal-icon-list) 'image)
+		  (wl-folder-init-icons))
 		(setq image
 		      (cond ((string= fld-name wl-trash-folder);; trash folder
 			     (let ((num (nth 2 numbers)));; number of messages