(gnus-agent-expire-group-1): Fix last merge from v5-10: Use `point-at-bol'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b9b98a..243dc2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-26  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-agent.el (gnus-agent-expire-group-1): Fix last merge from
+       v5-10: Use `point-at-bol'.
+
 2004-10-26  Simon Josefsson  <jas@extundo.com>
 
        * hashcash.el: Fix URL in comment, reported by Cheng Gao

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 1211fae..12427f7 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3249,7 +3249,7 @@ missing NOV entry.  Run gnus-agent-regenerate-group to restore it.")))
 
                     (incf nov-entries-deleted)
 
-                    (let ((from (gnus-point-at-bol))
+                    (let ((from (point-at-bol))
                           (to (progn (forward-line 1) (point))))
                       (incf bytes-freed (- to from))
                       (delete-region from to)))