From 8cef538c9fa3d8c4706fc5d71cd104b2c033e69a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 20 Feb 2001 02:01:31 +0000 Subject: [PATCH] * wl-e21.el (wl-highlight-folder-current-line): Call `wl-folder-init-icons' when folder icons have not been initialized. --- wl/ChangeLog | 3 +++ wl/wl-e21.el | 2 ++ 2 files changed, 5 insertions(+) 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 + * 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 -- 1.7.10.4