From e10d8717e37fb6a263ebf2eda238c4c59e00940c Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 8 May 2001 16:07:18 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): Fix. --- wl/ChangeLog | 4 ++++ wl/wl-folder.el | 9 +++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c24ac86..34d85d2 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-05-09 Kenichi OKADA + + * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): Fix. + 2001-05-08 Kenichi OKADA * wl.el (wl): Fix for wl-demo. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 4105a33..a330e78 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2038,10 +2038,11 @@ If FOLDER is multi, return comma separated string (cross post)." "Return ML address guess by FOLDER. Use `wl-subscribed-mailing-list' and `wl-refile-rule-alist'. Don't care multi." - (setq folder (car - (elmo-folder-get-primitive-list - (wl-folder-get-elmo-folder folder)))) - (unless (memq (elmo-folder-type-internal folder) +;;; XXXXX FIX ME +;;; (setq folder (car +;;; (elmo-folder-get-primitive-list +;;; (wl-folder-get-elmo-folder folder)))) + (unless (memq (elmo-folder-type folder) '(localnews nntp)) (let ((rules wl-refile-rule-alist) mladdress tokey toalist histkey) -- 1.7.10.4