From 24a35b7756aa45237a601927b811c99e3eb5e550 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 28 Aug 2003 14:13:04 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 5 +++++ elmo/elmo-msgdb.el | 2 +- wl/ChangeLog | 5 +++++ wl/wl-refile.el | 2 +- 4 files changed, 12 insertions(+), 2 deletions(-) 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 + + * elmo-msgdb.el (elmo-msgdb-message-entity-field): Decode value + when field is from or subject. + 2003-08-23 Yuuichi Teranishi * 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 + + * wl-refile.el (wl-refile-get-field-value): Call + `elmo-message-entity-field' with 3rd argument is non-nil. + 2003-08-26 Yuuichi Teranishi * 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) -- 1.7.10.4