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 5dfca30d62dc630d71abc84d40a05f955799c654..8e5ca2ce8e52bf34e32c33bc19b53a80b2d2f23a 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.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 "-_.")))
 \f
 (define (read-cached-message-item message keyword pathname)
   (let ((item