* elmo-msgdb.el (elmo-msgdb-message-entity-field): Decode value

when field is from or subject.

* wl-refile.el (wl-refile-get-field-value): Call
`elmo-message-entity-field' with 3rd argument is non-nil.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4166a90..dc3523e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-msgdb.el (elmo-msgdb-message-entity-field): Decode value
+       when field is from or subject.
+
 2003-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-multi.el (elmo-message-entity-parent): Define.

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 40941e4..782215d 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -1016,7 +1016,7 @@ Return CONDITION itself if no entity exists in msgdb."
                (references (aref (cdr entity) 1))
                (size (aref (cdr entity) 7))
                (t (cdr (assoc (symbol-name field) (aref (cdr entity) 8)))))))
-        (if decode
+        (if (and decode (memq field '(from subject)))
             (elmo-msgdb-get-decoded-cache field-value)
           field-value))))
 

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cc6b341..8b03a16 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-refile.el (wl-refile-get-field-value): Call
+       `elmo-message-entity-field' with 3rd argument is non-nil.
+
 2003-08-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-draft-preview-attributes): New user option.

diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 4c56ccd..feb8282 100644 (file)
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -198,7 +198,7 @@ If RULE does not match ENTITY, returns nil."
 
 (defun wl-refile-get-field-value (entity field)
   "Get FIELD value from ENTITY."
-  (elmo-message-entity-field entity (intern (downcase field))))
+  (elmo-message-entity-field entity (intern (downcase field)) 'decode))
 
 (defun wl-refile-guess-by-rule (entity)
   (let ((rules wl-refile-rule-alist)