From 2bf6e66c045671289a13caa59a5e14f3f95fd040 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 20 Feb 2001 02:02:03 +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 db1c250..6ca4e32 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 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 -- 1.7.10.4