(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)