* gnus-util.el (gnus-text-with-property): The smallest point is

point-min.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44a2b0c..4a6824a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-12-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-util.el (gnus-text-with-property): The smallest point is
+       point-min. 
+
        * smiley-ems.el (smiley-region): Return images.
        (gnus-smiley-display): Allow toggling.
        (smiley-region): Use text properties, not overlays.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index c9a48e0..2193f3b 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -224,7 +224,7 @@
 (defun gnus-text-with-property (prop)
   "Return a list of all points where the text has PROP."
   (let ((points nil)
-       (point 1))
+       (point (point-min)))
     (save-excursion
       (while (< point (point-max))
        (when (get-text-property point prop)