From cee583cfb27de166325239d87663e96b199ef0f6 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Fri, 1 Sep 2000 10:18:34 +0000 Subject: [PATCH] (nnimap-retrieve-headers-from-file): Ignore errors. --- lisp/ChangeLog | 2 ++ lisp/nnimap.el | 13 ++++++------- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c034608c..6aa825b8b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2000-09-01 Simon Josefsson + * nnimap.el (nnimap-retrieve-headers-from-file): Ignore errors. + * imap.el (imap-parse-flag-list): Hack. 2000-08-29 Dave Love diff --git a/lisp/nnimap.el b/lisp/nnimap.el index fddc68248..2cab8027c 100644 --- 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 -- 2.34.1