(spam-user-format-function-S): format the score correctly

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ba2bad..40615e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
        (spam-necessary-extra-headers): add spam-use-bogofilter as an option
        (spam-user-format-function-S): check spam-summary-score-preferred-header
        (spam-extra-header-to-number): add X-Bogosity header parsing
+       (spam-user-format-function-S): format the score correctly
 
 2004-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/spam.el b/lisp/spam.el
index 80c2c09..fd0e619 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -1138,7 +1138,8 @@ backends)."
 
 (defun spam-user-format-function-S (headers)
   (when headers
-    (spam-summary-score headers spam-summary-score-preferred-header)))
+    (format "%3.2f"
+           (spam-summary-score headers spam-summary-score-preferred-header))))
 
 (defun spam-article-sort-by-spam-status (h1 h2)
   "Sort articles by score."