--- a/lisp/gnus/gnus-score.el	Mon Aug 13 08:49:21 2007 +0200
+++ b/lisp/gnus/gnus-score.el	Mon Aug 13 08:49:43 2007 +0200
@@ -1871,7 +1871,7 @@
 			(funcall search-func match nil t))
 	      ;; Is it really exact?
 	      (and (eolp)
-		   (= (point-at-bol) (match-beginning 0))
+		   (= (gnus-point-at-bol) (match-beginning 0))
 		   ;; Yup.
 		   (progn
 		     (setq found (setq arts (get-text-property 
@@ -1942,7 +1942,7 @@
 	  (goto-char (point-min))
 	  (while (and (not (eobp))
 		      (search-forward match nil t))
-	    (when (and (= (point-at-bol) (match-beginning 0))
+	    (when (and (= (gnus-point-at-bol) (match-beginning 0))
 		       (eolp))
 	      (setq found (setq arts (get-text-property (point) 'articles)))
 	      (if trace
@@ -2026,7 +2026,7 @@
 		   hashtb))
 	    (gnus-sethash
 	     word
-	     (append (get-text-property (point-at-eol) 'articles) val)
+	     (append (get-text-property (gnus-point-at-eol) 'articles) val)
 	     hashtb)))
       (set-syntax-table syntab))
     ;; Make all the ignorable words ignored.