From 318ea74f4dbc327215a2c93e6019e60615f3d963 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 6 Oct 2004 20:27:13 +0000
Subject: [PATCH] .

original commit: 3b1018398c1fe7ffd6732491b7f944ae7d30df21
---
 collects/net/imap-unit.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss
index e96f5b5..dd6e3f1 100644
--- a/collects/net/imap-unit.ss
+++ b/collects/net/imap-unit.ss
@@ -233,6 +233,7 @@
 	      (set-imap-recent! imap (car i))]
 	     [(tag-eq? (cadr i) 'EXPUNGE)
 	      (let ([n (car i)])
+		(log "Recording expunge: ~s~n" n)
 		;; add it to the tree of expunges
 		(expunge-insert! (imap-expunges imap) n)
 		;; decrement exists count: