X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-score.el;h=29d0df53ea040df5ee4d9bb083342c94910853b5;hb=a77dd35f2d1dc13eb88e5b153d4c03b83f7eb2c7;hp=3f5e2a5c3a8711f9287233bc22f96ce72c389c85;hpb=b81bcb32e901e2c969637a67cad06c4e13686d25;p=gnus

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 3f5e2a5c3..29d0df53e 100644
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1122,9 +1122,9 @@ If FORMAT, also format the current score file."
 	 (reg " -> +")
 	 (file (save-excursion
 		 (end-of-line)
-		 (if (and (re-search-backward reg (gnus-point-at-bol) t)
-			  (re-search-forward  reg (gnus-point-at-eol) t))
-		     (buffer-substring (point) (gnus-point-at-eol))
+		 (if (and (re-search-backward reg (point-at-bol) t)
+			  (re-search-forward  reg (point-at-eol) t))
+		     (buffer-substring (point) (point-at-eol))
 		   nil))))
     (if (or (not file)
 	    (string-match "\\<\\(non-file rule\\|A file\\)\\>" file)
@@ -1854,7 +1854,7 @@ score in `gnus-newsgroup-scored' by SCORE."
 	    (goto-char (point-min))
 	    (if (= dmt ?e)
 		(while (funcall search-func match nil t)
-		  (and (= (gnus-point-at-bol)
+		  (and (= (point-at-bol)
 			  (match-beginning 0))
 		       (= (progn (end-of-line) (point))
 			  (match-end 0))
@@ -2024,7 +2024,7 @@ score in `gnus-newsgroup-scored' by SCORE."
 			(funcall search-func match nil t))
 	      ;; Is it really exact?
 	      (and (eolp)
-		   (= (gnus-point-at-bol) (match-beginning 0))
+		   (= (point-at-bol) (match-beginning 0))
 		   ;; Yup.
 		   (progn
 		     (setq found (setq arts (get-text-property
@@ -2114,7 +2114,7 @@ score in `gnus-newsgroup-scored' by SCORE."
 	  (goto-char (point-min))
 	  (while (and (not (eobp))
 		      (search-forward match nil t))
-	    (when (and (= (gnus-point-at-bol) (match-beginning 0))
+	    (when (and (= (point-at-bol) (match-beginning 0))
 		       (eolp))
 	      (setq found (setq arts (get-text-property (point) 'articles)))
 	      (if trace
@@ -2202,7 +2202,7 @@ score in `gnus-newsgroup-scored' by SCORE."
 		   hashtb))
 	    (gnus-sethash
 	     word
-	     (append (get-text-property (gnus-point-at-eol) 'articles) val)
+	     (append (get-text-property (point-at-eol) 'articles) val)
 	     hashtb)))
       (set-syntax-table syntab))
     ;; Make all the ignorable words ignored.