From 12c858d185c91627b0eb06b25d68d1a0fb4c65bd Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 5 Aug 2007 13:29:56 +0000 Subject: [PATCH] (wl-score-ov-entity-get): Call 'elmo-message-entity-field' with TYPE artgument when TO or CC field. --- wl/ChangeLog | 2 +- wl/wl-score.el | 6 +++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index f4b8134..cc632b5 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -3,7 +3,7 @@ * 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. + TYPE artgument when TO or CC field. 2007-04-06 Hiroya Murata 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) -- 1.7.10.4