From: kaoru <kaoru>
Date: Thu, 8 Mar 2001 02:05:29 +0000 (+0000)
Subject: Fixed last change.
X-Git-Tag: wl-2_6-root~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=57b24369529103497f3ab984a613bb7b761f672b;p=elisp%2Fwanderlust.git

Fixed last change.
---

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