Add disk cache for IMAP folders.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 2c6e00e6d5575a328524c2313925155bf09ec632..e1590da79708ef07c84ea743c0da626458d8b449 100644 (file)
--- 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 f5b86e5703d9c8ea583d6ae128a70b45d6e5c804..644a289f704f9b6f379ce97c9e114f1ab63b0a76 100644 (file)
--- 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