(wl-summary-sync-update): Remove duplicated period in a quit message.

[elisp/wanderlust.git] / wl / wl-score.el

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 6f07db7..bb465c3 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)
@@ -1195,7 +1195,7 @@ Set `wl-score-cache' nil."
              ((and wl-summary-important-above
                    (> score wl-summary-important-above))
               (if (wl-thread-jump-to-msg num);; force open
-                  (wl-summary-mark-as-important num " ")))
+                  (wl-summary-add-flags-internal num '(important))))
              ((and wl-summary-target-above
                    (> score wl-summary-target-above))
               (if visible