From 57b24369529103497f3ab984a613bb7b761f672b Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Thu, 8 Mar 2001 02:05:29 +0000
Subject: [PATCH] Fixed last change.

---
 wl/wl-folder.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index b9954ed..cf5671b 100644
--- 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
-- 
1.7.10.4