From 5c1fe6478e5ee7968190331cea5ebfe7df368949 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 2 Nov 2000 01:11:46 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): Fixed problem when no rule was matched. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 6 +----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 79ce66c..b224bca 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-11-02 Yuuichi Teranishi + + * wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule): + Fixed problem when no rule was matched. + 2000-11-01 Akihiro MOTOKI * wl-summary.el (wl-summary-get-mark): Fixed diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 78290b3..90c7f7f 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2038,12 +2038,8 @@ Don't care multi." 'case-ignore))) (setq toalist (append toalist (cdr (car rules))))) (setq rules (cdr rules))) - (when toalist - (setq tokey (car (rassoc folder toalist))) + (setq tokey (car (rassoc folder toalist))) ;;; (setq histkey (car (rassoc folder wl-refile-alist))) - (elmo-string-matched-member tokey - wl-subscribed-mailing-list t)) - ;; case-ignore search `wl-subscribed-mailing-list' (if (stringp tokey) (list -- 1.7.10.4