From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 May 2001 02:10:08 +0000 (+0000)
Subject: Fix bug: IMAP-MAILBOX-DELIMITER was calling the LIST command on a
X-Git-Tag: 20090517-FFI~2772
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7417ef86700a89d909f9ca9ebe7376138f047585;p=mit-scheme.git

Fix bug: IMAP-MAILBOX-DELIMITER was calling the LIST command on a
mailbox with a trailing slash; now the slash is omitted.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index cfebe9509..4a3520bb9 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.165 2001/05/27 05:05:54 cph Exp $
+;;; $Id: imail-imap.scm,v 1.166 2001/05/28 02:10:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -356,10 +356,7 @@
 
 (define (imap-mailbox-delimiter url mailbox)
   (let* ((slash (string-find-next-char mailbox #\/))
-	 (root
-	  (if slash
-	      (string-head mailbox (fix:+ slash 1))
-	      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)))
       (if (eq? delimiter 'UNKNOWN)