From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 May 2000 17:27:55 +0000 (+0000)
Subject: Implement DISCARD-FOLDER-CACHE for file folders.
X-Git-Tag: 20090517-FFI~3897
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=abae22501adde70e51bafca711cadf638e07f1ff;p=mit-scheme.git

Implement DISCARD-FOLDER-CACHE for file folders.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index e29945896..328496996 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.19 2000/05/08 19:02:58 cph Exp $
+;;; $Id: imail-file.scm,v 1.20 2000/05/10 17:27:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -201,4 +201,7 @@
 	      (set-file-folder-file-modification-count!
 	       folder
 	       (folder-modification-count folder)))
-	    (loop))))))
\ No newline at end of file
+	    (loop))))))
+
+(define-method discard-folder-cache ((folder <file-folder>))
+  (close-folder folder))
\ No newline at end of file