From: teranisi <teranisi>
Date: Fri, 15 Jun 2001 09:01:59 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
X-Git-Tag: wl-2_6-root~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1d107a7b0e5b7f1b97a9764b3d35a369da2216d3;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
Workaround for net folders.
(According to the patch from ABE Yasushi <yasushi@stbbs.net>)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b718031..62aabd5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-06-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
+	Workaround for net folders.
+	(According to the patch from ABE Yasushi <yasushi@stbbs.net>)
+
 2001-06-06  Peter Møller Neergaard <turtle@bu.edu>
 
 	* wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 6845733..2f562d6 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2083,6 +2083,8 @@ Use `wl-subscribed-mailing-list'."
 	    (if (eq 'imap4 (elmo-folder-get-type folder))
 		(elmo-imap4-spec-mailbox (elmo-imap4-get-spec folder))
 	      (substring folder 1)))
+      (if (string-match "@" folder)
+	  (setq folder (substring folder 0 (match-beginning 0))))
       (when (string-match "[^\\./]+$" folder) ; last hierarchy
 	(setq key (regexp-quote
 		   (concat (substring folder (match-beginning 0)) "@")))