* 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 (file)
--- 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 (file)
--- 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))