From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 May 2001 18:02:52 +0000 (+0000)
Subject: Don't unmemoize a folder when URL-EXISTS? signals an error; it might
X-Git-Tag: 20090517-FFI~2848
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67353d641013f496988bf4526665a5cd1b00c4a8;p=mit-scheme.git

Don't unmemoize a folder when URL-EXISTS? signals an error; it might
be a transitory error.

It's not obvious to me that we need to unmemoize here.  Maybe we
should just delete the call to URL-EXISTS? altogether.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index fdf3a379b..958daa4e5 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.118 2001/03/19 19:29:48 cph Exp $
+;;; $Id: imail-core.scm,v 1.119 2001/05/07 18:02:52 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -307,7 +307,9 @@
   (let ((folder (hash-table/get memoized-folders url #f)))
     (and folder
 	 (let ((folder (weak-car folder)))
-	   (if (and folder (url-exists? url))
+	   ;; Delete memoization _only_ if URL-EXISTS? unambiguously
+	   ;; states non-existence.  An error is often transitory.
+	   (if (and folder (ignore-errors (lambda () (url-exists? url))))
 	       folder
 	       (begin
 		 (unmemoize-folder url)