From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 May 2001 03:49:04 +0000 (+0000)
Subject: In IMAP-MAILBOX-DELIMITER, use the probed root as the table key;
X-Git-Tag: 20090517-FFI~2771
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d451b3e7c08665184f451515704c5ba88b390845;p=mit-scheme.git

In IMAP-MAILBOX-DELIMITER, use the probed root as the table key;
previous strategy make no sense.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 4a3520bb9..5a060dd2d 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.166 2001/05/28 02:10:08 cph Exp $
+;;; $Id: imail-imap.scm,v 1.167 2001/05/28 03:49:04 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -356,9 +356,8 @@
 
 (define (imap-mailbox-delimiter url mailbox)
   (let* ((slash (string-find-next-char mailbox #\/))
-	 (root (if slash (string-head mailbox slash) mailbox))
-	 (key (imap-url-new-mailbox url (if slash root ""))))
-    (let ((delimiter (hash-table/get imap-delimiters-table key 'UNKNOWN)))
+	 (root (if slash (string-head mailbox slash) mailbox)))
+    (let ((delimiter (hash-table/get imap-delimiters-table root 'UNKNOWN)))
       (if (eq? delimiter 'UNKNOWN)
 	  (let ((delimiter
 		 (imap:response:list-delimiter
@@ -368,7 +367,7 @@
 	    (let ((delimiter
 		   (and delimiter
 			(string-ref delimiter 0))))
-	      (hash-table/put! imap-delimiters-table key delimiter)
+	      (hash-table/put! imap-delimiters-table root delimiter)
 	      delimiter))
 	  delimiter))))