(wl-score-ov-entity-get): Call 'elmo-message-entity-field' with

[elisp/wanderlust.git] / wl / wl-score.el

diff --git a/wl/wl-score.el b/wl/wl-score.el
index a6ae125..1dc8aad 100644 (file)
--- 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)