* gnus-util.el (gnus-parse-without-error): Add edebug-form-spec.

	* nnagent.el (nnagent-retrieve-headers): loop until eobp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f064aec..7bcb318 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-26  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-util.el (gnus-parse-without-error): Add edebug-form-spec.
+
+       * nnagent.el (nnagent-retrieve-headers): loop until eobp.
+
 2002-01-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-agent.el (gnus-agent-load-alist): Use new caching

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 3a42cad..dad48b5 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1261,6 +1261,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
           t)))
 
 (put 'gnus-parse-without-error 'lisp-indent-function 0)
+(put 'gnus-parse-without-error 'edebug-form-spec '(body))
 
 (defmacro gnus-parse-without-error (&rest body)
   "Allow continuing onto the next line even if an error occurs."

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index e22591e..5ec2055 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -140,7 +140,7 @@
       (nnheader-insert-nov-file file (car articles))
       (goto-char (point-min))
       (gnus-parse-without-error
-       (while arts
+       (while (and arts (not (eobp)))
          (setq n (read (current-buffer)))
          (when (> n (car arts))
            (beginning-of-line))