From: kaoru <kaoru>
Date: Thu, 9 Nov 2000 03:12:19 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use
X-Git-Tag: wl-2_4_0pre2~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c39086e09ea41874170d8cf2cc4ecf86cfb28e92;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use
`regexp-quote'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 37c5b24..36a0d3b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-09  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use
+	`regexp-quote'.
+
 2000-11-08  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): New
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 8a11d7b..f2b20e7 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2049,13 +2049,14 @@ 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."
+Use `wl-subscribed-mailing-list'."
   (setq folder (car (elmo-folder-get-primitive-folder-list folder)))
   (when (memq (elmo-folder-get-type folder)
 	      '(localdir imap4 maildir))
     (let (key mladdress)
       (when (string-match "[^\\./]+$" folder)
-	(setq key (concat "^" (substring folder (match-beginning 0)) "@"))
+	(setq key (regexp-quote
+		   (concat (substring folder (match-beginning 0)) "@")))
 	(setq mladdress
 	      (elmo-string-matched-member
 	       key wl-subscribed-mailing-list 'case-ignore))