* wl-score.el (wl-score-ov-entity-get): Treat extra field.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 98063ee..8ab30cd 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2003-09-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * wl-score.el (wl-score-ov-entity-get): Treat extra field.
+
        * wl-summary.el (wl-summary-prefetch-msg): Fixed.
        (wl-summary-forward): Use elmo-message-entity-field instead of
        elmo-message-field.

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 6f07db7..8774a02 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -177,7 +177,7 @@ Remove Re, Was, Fwd etc."
           (string= s1 s2))))
 
 (defsubst wl-score-ov-entity-get (entity index &optional extra decode)
-  (elmo-message-entity-field entity index decode))
+  (elmo-message-entity-field entity (if extra (intern extra) index) decode))
 
 (defun wl-score-string< (a1 a2)
   (string-lessp (wl-score-ov-entity-get (car a1) wl-score-index)