Merge from origin/emacs-25

[gnu-emacs] / lisp / gnus / spam.el

diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index 39181eaa62f61b931fd3c2cb583f14559cea1b8b..d3224004f15f65006191e50d19c4341babd1e328 100644 (file)
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -1200,18 +1200,18 @@ Note this has to be fast."
         (cond
          ((eq header 'X-Spam-Status)
           (string-to-number (replace-regexp-in-string
-                             header-content
                              spam-spamassassin-score-regexp
-                             "\\1")))
+                             "\\1"
+                             header-content)))
          ;; 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))))
          ((eq header 'X-Bogosity)
           (string-to-number (replace-regexp-in-string
+                             ",.*" ""
                              (replace-regexp-in-string
-                              header-content
-                              ".*spamicity=" "")
-                             ",.*" "")))
+                              ".*spamicity=" ""
+                              header-content))))
          (t nil))
       nil)))