Check art is a number.

Bad lines in NOV (A line beginning with "From") which may come from
uncleared *nntp* buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd57840..e36c37f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-11-05 01:27:49  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-expire): Remove bad line in NOV.
+
 1999-11-04 22:20:35  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * mml.el (mml-generate-mime-1): Read attached binary file in

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 9944184..76dfca3 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1471,9 +1471,10 @@ The following commands are available:
                                 (or (not (numberp
                                           (setq art (read (current-buffer)))))
                                     (< art article)))
-                      (if (file-exists-p
-                           (gnus-agent-article-name
-                            (number-to-string art) group))
+                      (if (and (numberp art) 
+                               (file-exists-p
+                                (gnus-agent-article-name
+                                 (number-to-string art) group)))
                           (progn
                             (unless lowest
                               (setq lowest art))