From 557ada985425f95d6275129cfebf7b49a628efab Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 11 Mar 2001 01:16:30 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Fixed `match-beginning' argument mismatch. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Fixed `match-beginning' argument mismatch. + 2001-03-05 Katsumi Yamaoka * 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)) -- 1.7.10.4