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