(wl-refile-get-field-value): Fixed and simplified.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e57e773..3b2cd68 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-refile.el (wl-refile-get-field-value): Fixed and simplified.
+
 2003-07-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 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 (file)
--- 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)