From: kaoru <kaoru>
Date: Sun, 5 Aug 2007 13:29:56 +0000 (+0000)
Subject: (wl-score-ov-entity-get): Call 'elmo-message-entity-field' with
X-Git-Tag: wl-2_15_6-fixes~78
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=12c858d185c91627b0eb06b25d68d1a0fb4c65bd;p=elisp%2Fwanderlust.git

(wl-score-ov-entity-get): Call 'elmo-message-entity-field' with
TYPE artgument when TO or CC field.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f4b8134..cc632b5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,7 +3,7 @@
 	* wl-score.el (wl-score-insert-header): Add guard for
 	`std11-unfold-string'.
 	(wl-score-ov-entity-get): Call 'elmo-message-entity-field' with
-	TYPE artgument.
+	TYPE artgument when TO or CC field.
 
 2007-04-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
diff --git a/wl/wl-score.el b/wl/wl-score.el
index a6ae125..1dc8aad 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -177,7 +177,11 @@ Remove Re, Was, Fwd etc."
 	   (string= s1 s2))))
 
 (defsubst wl-score-ov-entity-get (entity index &optional extra)
-  (elmo-message-entity-field entity (if extra (intern extra) index) 'string))
+  (elmo-message-entity-field entity (if extra (intern extra) index)
+			     ;; FIXME
+			     (if (or (eq index 'to) (eq index 'cc))
+				 'string
+			       nil)))
 
 (defun wl-score-string< (a1 a2)
   (string-lessp (wl-score-ov-entity-get (car a1) wl-score-index)