From 0dcb53ebdc57513ab012f9ee6c8e8d5e20bad437 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 5 Aug 2007 01:33:45 +0000 Subject: [PATCH] (wl-score-ov-entity-get): Call 'elmo-message-entity-field' with TYPE artgument. --- wl/ChangeLog | 2 ++ wl/wl-score.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index f9b1500..f4b8134 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -2,6 +2,8 @@ * 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. 2007-04-06 Hiroya Murata diff --git a/wl/wl-score.el b/wl/wl-score.el index fd94bbd..a6ae125 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) - (elmo-message-entity-field entity (if extra (intern extra) index))) + (elmo-message-entity-field entity (if extra (intern extra) index) 'string)) (defun wl-score-string< (a1 a2) (string-lessp (wl-score-ov-entity-get (car a1) wl-score-index) -- 1.7.10.4