From a15b235e469ba8a251be383905effce78e47a711 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 3 Jun 2001 18:32:32 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Fixed probrem when hostname/port/auth included folder name makes misguess. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index d66e062..9d940e1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2001-06-03 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Fixed probrem when hostname/port/auth included folder name makes + misguess. + 2001-05-23 Kenichi OKADA * wl-draft.el (wl-draft): use `wl-summary-write-current-folder' diff --git a/wl/wl-folder.el b/wl/wl-folder.el index afc5095..7c53b55 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2064,8 +2064,11 @@ Use `wl-subscribed-mailing-list'." (when (memq (elmo-folder-get-type folder) '(localdir imap4 maildir)) (let (key mladdress) - (setq folder (substring folder 1)) ; remove folder type symbol - (when (string-match "[^\\./]+$" folder) + (setq folder ; make folder name simple + (if (eq 'imap4 (elmo-folder-get-type folder)) + (elmo-imap4-spec-mailbox (elmo-imap4-get-spec folder)) + (substring folder 1))) + (when (string-match "[^\\./]+$" folder) ; last hierarchy (setq key (regexp-quote (concat (substring folder (match-beginning 0)) "@"))) (setq mladdress -- 1.7.10.4