(wl-thread-insert-message): arranged localization of variable

[elisp/wanderlust.git] / wl / wl-e21.el

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 0520364..ffabf4a 100644 (file)
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -363,7 +363,9 @@
                            ((string= fld-name wl-queue-folder);; queue folder
                             (get 'wl-folder-queue-image 'image))
                            (;; and one of many other folders
-                            (setq type (elmo-folder-type fld-name))
+                            (setq type (or (elmo-folder-type fld-name)
+                                           (elmo-folder-type-internal
+                                            (elmo-make-folder fld-name))))
                             (get (intern (format "wl-folder-%s-image" type))
                                  'image)))))
              (overlay-put overlay 'before-string image)))
@@ -668,6 +670,8 @@ Special commands:
   (let ((event (read-event)))
     (cons (and (numberp event) event) event)))
 
+(defalias 'wl-completing-read-multiple 'completing-read-multiple)
+
 (put 'wl-modeline-biff-state-on 'risky-local-variable t)
 (put 'wl-modeline-biff-state-off 'risky-local-variable t)
 (put 'wl-modeline-plug-state-on 'risky-local-variable t)