(spam-extra-header-to-number): CRM114 spam score should be

negated to be consistent with the others we handle

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19da84e..3c0c192 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-20  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-extra-header-to-number): CRM114 spam score should be
+       negated to be consistent with the others we handle
+
 2006-12-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-setup-buffer): Actually set the local

diff --git a/lisp/spam.el b/lisp/spam.el
index 7fca078..d8643a8 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -1196,7 +1196,7 @@ Note this has to be fast."
                              "\\1")))
          ;; for CRM checking, it's probably faster to just do the string match
          ((string-match "( pR: \\([0-9.-]+\\)" header-content)
-          (string-to-number (match-string 1 header-content)))
+          (- (string-to-number (match-string 1 header-content))))
          ((eq header 'X-Bogosity)
           (string-to-number (gnus-replace-in-string
                              (gnus-replace-in-string