From: kaoru <kaoru>
Date: Sun, 11 Mar 2001 01:16:30 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
X-Git-Tag: wl-2_8-root^2~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=557ada985425f95d6275129cfebf7b49a628efab;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
Fixed `match-beginning' argument mismatch.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 05506be..112f5f8 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
+	Fixed `match-beginning' argument mismatch.
+
 2001-03-05  Katsumi Yamaoka    <yamaoka@jpl.org>
 
 	* wl-demo.el (wl-demo): Reset `tab-width' and `tab-stop-list' to
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 902a7ce..05e00f5 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2069,14 +2069,17 @@ Don't care multi."
 (defun wl-folder-guess-mailing-list-by-folder-name (folder)
   "Return ML address guess by FOLDER name's last hierarchy.
 Use `wl-subscribed-mailing-list'."
+  ;; Don't care multi folder.  FIX ME
   (setq folder (car (elmo-folder-get-primitive-list
 		     (wl-folder-get-elmo-folder folder))))
   (when (memq (elmo-folder-type-internal folder)
 	      '(localdir imap4 maildir))
-    (let (key mladdress)
-      (when (string-match "[^\\./]+$" (elmo-folder-name-internal folder))
+    (let (key mladdress foldername)
+      ;; Get foldername and Remove folder type symbol.
+      (setq foldername (substring (elmo-folder-name-internal folder) 1))
+      (when (string-match "[^\\./]+$" foldername)
 	(setq key (regexp-quote
-		   (concat (substring folder (match-beginning 0)) "@")))
+		   (concat (substring foldername (match-beginning 0)) "@")))
 	(setq mladdress
 	      (elmo-string-matched-member
 	       key wl-subscribed-mailing-list 'case-ignore))