From 7417ef86700a89d909f9ca9ebe7376138f047585 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 May 2001 02:10:08 +0000
Subject: [PATCH] Fix bug: IMAP-MAILBOX-DELIMITER was calling the LIST command
 on a mailbox with a trailing slash; now the slash is omitted.

---
 v7/src/imail/imail-imap.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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)
-- 
2.25.1