--- spam.el.orig	2006-02-26 10:46:08.533820872 +0900
+++ spam.el	2006-02-26 09:58:40.303817648 +0900
@@ -1184,10 +1184,11 @@
   (if (gnus-extra-header header headers)
       (cond
        ((eq header 'X-Spam-Status)
-	(string-to-number (gnus-replace-in-string
-			   (gnus-extra-header header headers)
-			   spam-spamassassin-score-regexp
-			   "\\1")))
+	(if (string-match spam-spamassassin-score-regexp
+			  (gnus-extra-header header headers))
+	    (string-to-number
+	     (match-string 1 (gnus-extra-header header headers)))
+	  0))
        ;; for CRM checking, it's probably faster to just do the string match
        ((and spam-use-crm114 (string-match "( pR: \\([0-9.-]+\\)" header))
 	(match-string 1 header))