(gnus-cache-braid-nov): Test if a line looks like a NOV.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2862e05..0a9528d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-cache.el (gnus-cache-braid-nov): Test if a line looks like
+       a NOV.
+
 2003-03-20  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-use-idna): Disable if UTF-8 unavailable.

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 6431c81..ae987ec 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -507,6 +507,7 @@ Returns the list of articles removed."
     (goto-char (point-min))
     (while cached
       (while (and (not (eobp))
+                 (looking-at "[0-9]+\t")
                  (< (read (current-buffer)) (car cached)))
        (forward-line 1))
       (beginning-of-line)