From 1d107a7b0e5b7f1b97a9764b3d35a369da2216d3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 15 Jun 2001 09:01:59 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Workaround for net folders. (According to the patch from ABE Yasushi ) --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 2 ++ 2 files changed, 8 insertions(+) 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 + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Workaround for net folders. + (According to the patch from ABE Yasushi ) + 2001-06-06 Peter Møller Neergaard * 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)) "@"))) -- 1.7.10.4