(spam-check-blackholes): oops, the dots were not escaped

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7e3b21..1462cc2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * spam.el (spam-check-blackholes): remove "[IP address]"
        requirement, now just "IP address" is enough for detection for
        blackhole checking
+       (spam-check-blackholes): oops, the dots were not escaped
 
 2003-10-23  Simon Josefsson  <jas@extundo.com>
 

diff --git a/lisp/spam.el b/lisp/spam.el
index 1737059..0ab7d27 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -772,7 +772,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
        (goto-char (point-min))
        (gnus-message 5 "Checking headers for relay addresses")
        (while (re-search-forward
-               "\\([0-9]+.[0-9]+.[0-9]+.[0-9]+\\)" nil t)
+               "\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" nil t)
          (gnus-message 9 "Blackhole search found host IP %s." (match-string 1))
          (push (spam-reverse-ip-string (match-string 1))
                ips)))