diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 18:24:30 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 18:24:30 +1100 |
| commit | bd066f82903ac055109882189646d39c2a75e044 (patch) | |
| tree | e44dd5c865325fdc74828bd30fabfff26b46444d /lisp/gnus/spam.el | |
| parent | 2a342bda0af6c0bc168a190f368f0871ff31f7b1 (diff) | |
| download | emacs-bd066f82903ac055109882189646d39c2a75e044.tar.gz | |
Revert the gnus-replace-in-string change, fix arguments, reapply
Diffstat (limited to 'lisp/gnus/spam.el')
| -rw-r--r-- | lisp/gnus/spam.el | 10 |
1 files changed, 5 insertions, 5 deletions
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))) |