.

original commit: 3b1018398c1fe7ffd6732491b7f944ae7d30df21
2004-10-06 20:27:13 +00:00 · 2004-10-06 20:27:13 +00:00 · 318ea74f4d
commit 318ea74f4d
parent 660d513353
1 changed files with 1 additions and 0 deletions
--- 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: