From: hmurata <hmurata>
Date: Thu, 28 Aug 2003 14:13:04 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-message-entity-field): Decode value
X-Git-Tag: merged-trunk-to-elmo-mark-20~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=24a35b7756aa45237a601927b811c99e3eb5e550;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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)