From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Jun 2000 17:58:28 +0000 (+0000)
Subject: Add folder events to IMAP trace facility.
X-Git-Tag: 20090517-FFI~3456
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c93c99035d20bcd41bb634713a406dd8685b1754;p=mit-scheme.git

Add folder events to IMAP trace facility.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 917c9bfd1..f087baf3b 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.108 2000/06/20 19:48:42 cph Exp $
+;;; $Id: imail-core.scm,v 1.109 2000/06/23 17:58:28 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -282,6 +282,11 @@
   (apply folder-event folder type parameters))
 
 (define (folder-event folder type . parameters)
+  (if (and imap-trace-port (imap-folder? folder))
+      (begin
+	(write-line (cons* 'FOLDER-EVENT folder type parameters)
+		    imap-trace-port)
+	(flush-output imap-trace-port)))
   (event-distributor/invoke! (folder-modification-event folder)
 			     folder
 			     type