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 09ad2de60d53fef3b537abd6f67f27d4bf7873cd..01afc12f9b1e64751d4a0f98caf0cf220f336095 100644 (file)
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -1014,7 +1014,7 @@ USA.
 ;;; operation atomically.
 \f
 (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)))