From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 18 Nov 2001 04:58:19 +0000 (+0000)
Subject: Change file naming for cache files, so that it satisfies more
X-Git-Tag: 20090517-FFI~2433
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5bac7675d700722d106b5a25f27a265ad24d9af8;p=mit-scheme.git

Change file naming for cache files, so that it satisfies more
stringent Windows requirements.  Make sure that directory structure
exists before locking a folder.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 5dfca30d6..8e5ca2ce8 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.193 2001/11/18 04:53:04 cph Exp $
+;;; $Id: imail-imap.scm,v 1.194 2001/11/18 04:58:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1673,7 +1673,7 @@
 (define (imap-folder-lock-pathname folder)
   (let ((spec (imap-folder-cache-specifier folder)))
     (let ((p (last-pair spec)))
-      (set-car! p (string-append (car p) "#lock")))
+      (set-car! p (string-append (car p) "!lock")))
     (init-file-specifier->pathname spec)))
 
 (define (imap-folder-cache-pathname folder)
@@ -1700,16 +1700,16 @@
 	    (cond ((char-set-member? char-set:cache-namestring-safe char)
 		   (write-char char port))
 		  ((char=? char #\/)
-		   (write-char #\. port))
+		   (write-char #\# port))
 		  (else
 		   (write-char #\% port)
 		   (let ((n (char->integer char)))
 		     (if (fix:< n #x10)
 			 (write-char #\0 port))
-		     (write n port))))))))))
+		     (write-string (number->string n 16) port))))))))))
 
 (define char-set:cache-namestring-safe
-  (char-set-union char-set:alphanumeric (string->char-set "-_")))
+  (char-set-union char-set:alphanumeric (string->char-set "-_.")))
 
 (define (read-cached-message-item message keyword pathname)
   (let ((item