From bd066f82903ac055109882189646d39c2a75e044 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 12 Feb 2016 18:24:30 +1100
Subject: Revert the gnus-replace-in-string change, fix arguments, reapply

---
 lisp/gnus/spam.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lisp/gnus/spam.el')

diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index 39181eaa62f..d3224004f15 100644
--- 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)))
 
-- 
cgit v1.2.1