From 6f17021115400368d9ec6b8163a4e22211951356 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 19 Jul 2003 17:06:27 +0000 Subject: [PATCH] (wl-refile-get-field-value): Fixed and simplified. --- wl/ChangeLog | 4 ++++ wl/wl-refile.el | 6 +----- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index e57e773..3b2cd68 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2003-07-19 Hiroya Murata + + * wl-refile.el (wl-refile-get-field-value): Fixed and simplified. + 2003-07-19 Yuuichi Teranishi * wl-refile.el (wl-refile-learn): Don't use msgdb. diff --git a/wl/wl-refile.el b/wl/wl-refile.el index 0dd0048..9d78fb6 100644 --- a/wl/wl-refile.el +++ b/wl/wl-refile.el @@ -198,11 +198,7 @@ If RULE does not match ENTITY, returns nil." (defun wl-refile-get-field-value (entity field) "Get FIELD value from ENTITY." - (let ((field (downcase field)) - (fixed-fields '(from subject to cc))) - (if (member field fixed-fields) - (elmo-message-entity-field entity field) - (elmo-msgdb-overview-entity-get-extra-field entity field)))) + (elmo-message-entity-field entity (intern (downcase field)))) (defun wl-refile-guess-by-rule (entity) (let ((rules wl-refile-rule-alist) -- 1.7.10.4