From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 20 Jun 2013 15:32:16 +0000 (+0000)
Subject: Use WITH-LIMITED-INTERRUPTS, not WITH-INTERRUPT-MASK, for IMAP update.
X-Git-Tag: release-9.2.0~151
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a81c86bd32f3f497f31e3e58a3bdf27d1977b64;p=mit-scheme.git

Use WITH-LIMITED-INTERRUPTS, not WITH-INTERRUPT-MASK, for IMAP update.
---

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index 09ad2de60..01afc12f9 100644
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -1014,7 +1014,7 @@ USA.
 ;;; operation atomically.
 
 (define (update-imap-folder-length! folder count)
-  (with-interrupt-mask interrupt-mask/gc-ok
+  (with-limited-interrupts interrupt-mask/gc-ok
     (lambda (interrupt-mask)
       (cond ((or (imap-folder-messages-synchronized? folder 'FLAGS)
 		 (zero? (folder-length folder)))