From: yamaoka <yamaoka>
Date: Tue, 20 Feb 2001 02:01:31 +0000 (+0000)
Subject: * wl-e21.el (wl-highlight-folder-current-line): Call `wl-folder-init-icons'
X-Git-Tag: wl-2_6-root~98
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8cef538c9fa3d8c4706fc5d71cd104b2c033e69a;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 84e2bd1..dd20128 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 ce261d8..399f9e8 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -340,6 +340,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