From: hmurata <hmurata>
Date: Mon, 29 Sep 2003 11:33:19 +0000 (+0000)
Subject: * wl-score.el (wl-score-ov-entity-get): Treat extra field.
X-Git-Tag: wl-2_11_19~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ffcd242f1766ae5aefe0871f6cd27c9397d046e;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 98063ee..8ab30cd 100644
--- 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
--- 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)