From ee58d85dc474554918ef62035ace158f85f328b2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Feb 2017 22:24:54 -0800
Subject: [PATCH] Fix dangling reference.

---
 src/imail/imail-imap.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index 9690df2e5..39ab4e5be 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)))
-	 (substring-downcase mailbox 0 5))
+	 (string-downcase (string-slice mailbox 0 5)))
 	(else mailbox)))
 
 (define (compatible-imap-urls? url1 url2)
-- 
2.25.1