From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Jun 2019 21:23:48 +0000 (-0700)
Subject: Fix incorrect edit.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ffa6ff3453f144504b39f6fc7ed995a2833ef9a;p=mit-scheme.git

Fix incorrect edit.
---

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index 733cc7791..5aafa5385 100644
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -139,7 +139,7 @@ USA.
   (cond ((string-ci=? "inbox" mailbox) "inbox")
 	((and (string-prefix-ci? "inbox/" mailbox)
 	      (not (string-prefix? "inbox/" mailbox)))
-	 (string-downcase (string-slice mailbox 0 5)))
+	 (string-downcase (substring mailbox 0 5)))
 	(else mailbox)))
 
 (define (compatible-imap-urls? url1 url2)