Fixed last change.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index b9954ed..cf5671b 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2064,7 +2064,8 @@ Use `wl-subscribed-mailing-list'."
   (when (memq (elmo-folder-get-type folder)
              '(localdir imap4 maildir))
     (let (key mladdress)
-      (when (string-match "[^\\./]+$" (substring folder 1)) ; remove symbol
+      (setq folder (substring folder 1)) ; remove folder type symbol
+      (when (string-match "[^\\./]+$" folder)
        (setq key (regexp-quote
                   (concat (substring folder (match-beginning 0)) "@")))
        (setq mladdress