(gnus-score-edit-file-at-point): Use

gnus-point-at-*, for portability.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08ca658..5399ba2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-30  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-score.el (gnus-score-edit-file-at-point): Use
+       gnus-point-at-*, for portability.
+
 2003-12-30  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-art.el (gnus-treat-body-boundary): Fix doc-string and

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index de6f78a..664a563 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1117,9 +1117,9 @@ If FORMAT, also format the current score file."
         (reg " -> +")
         (file (save-excursion
                 (end-of-line)
-                (if (and (re-search-backward reg (point-at-bol) t)
-                         (re-search-forward  reg (point-at-eol) t))
-                    (buffer-substring (point) (point-at-eol))
+                (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))
                   nil))))
     (if (or (not file)
            (string-match "non-file" file)