* 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 (file)
--- 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 (file)
--- 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