2006-02-11  ARISAWA Akihiro  <ari@mbf.ocn.ne.jp>

	* spam.el (spam-check-spamassassin-headers): Improved regexp
	for spamassassin 3.0 or later.

Index: lisp/spam.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/spam.el,v
retrieving revision 7.77
diff -u -r7.77 spam.el
--- lisp/spam.el	8 Feb 2006 04:17:15 -0000	7.77
+++ lisp/spam.el	11 Feb 2006 01:35:11 -0000
@@ -2614,8 +2614,8 @@
   (if score				; scoring mode
       (let ((header (message-fetch-field spam-spamassassin-spam-status-header)))
 	(when header
-	  (if (string-match "hits=\\(-?[0-9.]+\\)" header)
-	      (match-string 1 header)
+	  (if (string-match "\\(hits\\|score\\)=\\(-?[0-9.]+\\)" header)
+	      (match-string 2 header)
 	    "0")))
     ;; spam detection mode
     (let ((header (message-fetch-field spam-spamassassin-spam-flag-header)))