X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-score.el;h=1dc8aaded2c8f489cafd160587e69db0dcf8ec6f;hb=12c858d185c91627b0eb06b25d68d1a0fb4c65bd;hp=a6ae125c11a8a3ff6e54bff19866fc519ca18721;hpb=0dcb53ebdc57513ab012f9ee6c8e8d5e20bad437;p=elisp%2Fwanderlust.git

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)