From 67353d641013f496988bf4526665a5cd1b00c4a8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 May 2001 18:02:52 +0000
Subject: [PATCH] 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.
---
 v7/src/imail/imail-core.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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)
-- 
2.25.1