* gnus-agent.el (gnus-agent-save-alist): Fix.

* nnagent.el (nnagent-retrieve-headers): Must have cut too much by
mistake.  Reinstated lost code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5265ce0..c29fef4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-01-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-agent.el (gnus-agent-save-alist): Fix.
+
+       * nnagent.el (nnagent-retrieve-headers): Must have cut too much by
+       mistake.  Reinstated lost code.
+
 2002-01-25  Josh Huber  <huber@alum.wpi.edu>
 
        * mml2015.el (mml2015-mailcrypt-decrypt): Display a signature if

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 280bc3a..bb7b12f 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1126,7 +1126,7 @@ the actual number of articles toggled is returned."
   (let* ((file-name-coding-system nnmail-pathname-coding-system)
         (prev (cons nil gnus-agent-article-alist))
         (all prev)
-        print-level print-length item)
+        print-level print-length item article)
     (while (setq article (pop articles))
       (while (and (cdr prev)
                 (< (caadr prev) article))
@@ -1137,8 +1137,8 @@ the actual number of articles toggled is returned."
        ((> (caadr prev) article)
        (setcdr prev (cons (cons article state) (cdr prev))))
        ((= (caadr prev) article)
-       (setcdr (cadr prev) state))
-       (setq prev (cdr prev))))
+       (setcdr (cadr prev) state)))
+      (setq prev (cdr prev)))
     (setq gnus-agent-article-alist (cdr all))
     (with-temp-file (if dir
                        (expand-file-name ".agentview" dir)

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index 5bdc1e6..86c23d6 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -142,7 +142,24 @@
       ;; This loop is just for the `condition-case' -- if reading bugs
       ;; out on a line, it'll still continue on to the next line.  So
       ;; this look is normally just executed once.
-      
+      (while (not (eobp))
+       (condition-case ()
+           (while arts
+             (setq n (read (current-buffer)))
+             (if (> n (car arts))
+                 (beginning-of-line))
+             (while (and arts (> n (car arts)))
+               (insert (format 
+                        "%d\t[Undownloaded article %d]\tGnus Agent\t\t\t\n"
+                        (car arts) (car arts)))
+               (pop arts))
+             (if (and arts (= n (car arts)))
+                 (pop arts))
+             (forward-line 1))
+         (error
+          (gnus-error 4 "Strange nov line (%d)"
+                      (count-lines (point-min) (point)))))
+       (forward-line 1))
       (while arts
        (insert (format
                 "%d\t[Undownloaded article %d]\tGnus Agent\t\t\t\n"