From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Sep 2001 19:22:56 +0000 (+0000)
Subject: Add disk cache for IMAP folders.
X-Git-Tag: 20090517-FFI~2541
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=91e63415776ef9656ebfdc79d031696eeb9ccf34;p=mit-scheme.git

Add disk cache for IMAP folders.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 2c6e00e6d..e1590da79 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.186 2001/09/28 19:18:30 cph Exp $
+;;; $Id: imail-imap.scm,v 1.187 2001/09/28 19:22:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1663,12 +1663,6 @@
     (lambda (port)
       ((input-port/custom-operation port 'REST->STRING) port))))
 
-(define (simple-write-file object pathname)
-  (call-with-output-file pathname
-    (lambda (port)
-      (write object port)
-      (newline port))))
-
 (define (delete-file-recursively pathname)
   (call-with-append-file "/tmp/foo"
     (lambda (port)
diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index f5b86e570..644a289f7 100644
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.30 2001/09/28 00:42:21 cph Exp $
+;;; $Id: load.scm,v 1.31 2001/09/28 19:18:42 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -28,4 +28,4 @@
   (lambda ()
     (fluid-let ((*allow-package-redefinition?* #t))
       (load-package-set "imail"))))
-(add-subsystem-identification! "IMAIL" '(1 13))
\ No newline at end of file
+(add-subsystem-identification! "IMAIL" '(1 14))
\ No newline at end of file