* gnus-util.el (gnus-parse-without-error): Correct the loop.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 838491c..7f4d8dc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-util.el (gnus-parse-without-error): Correct the loop. 
+
        * gnus-sum.el (gnus-dependencies-add-header): Use in-reply-to if
        there are no references.
        (gnus-extract-message-id-from-in-reply-to): New function.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 2cd5cb2..610ad5b 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1267,7 +1267,8 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
   `(while (not (eobp))
      (condition-case ()
         (progn
-          ,@body)
+          ,@body
+          (goto-char (point-max)))
        (error
        (gnus-error 4 "Invalid data on line %d"
                    (count-lines (point-min) (point)))