From c39086e09ea41874170d8cf2cc4ecf86cfb28e92 Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 9 Nov 2000 03:12:19 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use `regexp-quote'. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Use + `regexp-quote'. + 2000-11-08 TAKAHASHI Kaoru * 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)) -- 1.7.10.4