(nnimap-retrieve-headers-from-file): Ignore errors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c03460..6aa825b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-09-01  Simon Josefsson  <simon@josefsson.org>
 
+       * nnimap.el (nnimap-retrieve-headers-from-file): Ignore errors.
+
        * imap.el (imap-parse-flag-list): Hack.
 
 2000-08-29  Dave Love  <fx@gnu.org>

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index fddc682..2cab802 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -54,6 +54,7 @@
 ;;     .newsrc.eld)
 ;;   o What about Gnus's article editing, can we support it?  NO!
 ;;   o Use \Draft to support the draft group??
+;;   o Duplicate suppression
 
 ;;; Code:
 
@@ -458,13 +459,11 @@ If EXAMINE is non-nil the group is selected read-only."
       (when (file-exists-p nov)
        (mm-insert-file-contents nov)
        (set-buffer-modified-p nil)
-       (let ((min (progn (goto-char (point-min))
-                         (when (not (eobp))
-                           (read (current-buffer)))))
-             (max (progn (goto-char (point-max))
-                         (forward-line -1)
-                         (when (not (bobp))
-                           (read (current-buffer))))))
+       (let ((min (ignore-errors (goto-char (point-min))
+                                 (read (current-buffer))))
+             (max (ignore-errors (goto-char (point-max))
+                                 (forward-line -1)
+                                 (read (current-buffer)))))
          (if (and (numberp min) (numberp max))
              (cons min max)
            ;; junk, remove it, it's saved later