From 2d2ef24349f7aae7137e2b959196cb0c19528e9c Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 7 Mar 2001 14:26:21 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): Fixed probrem guess by top level folder. --- wl/ChangeLog | 3 +++ wl/wl-folder.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index f6309d4..173d5e6 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2001-03-07 TAKAHASHI Kaoru + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): + Fixed probrem guess by top level folder. + * wl-draft.el (wl-draft-random-alphabet): Removed. (wl-draft-confirm): Don't use conditonal statement in `format' argument; Use gettext style. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index ee95246..b9954ed 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2064,7 +2064,7 @@ Use `wl-subscribed-mailing-list'." (when (memq (elmo-folder-get-type folder) '(localdir imap4 maildir)) (let (key mladdress) - (when (string-match "[^\\./]+$" folder) + (when (string-match "[^\\./]+$" (substring folder 1)) ; remove symbol (setq key (regexp-quote (concat (substring folder (match-beginning 0)) "@"))) (setq mladdress -- 1.7.10.4