From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Jun 2001 01:05:44 +0000 (+0000)
Subject: Start the folder-probe thread only when the folder is ONLINE, and stop
X-Git-Tag: 20090517-FFI~2712
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d277b661610df901fbfb6f7c2625b1a40da3ed1;p=mit-scheme.git

Start the folder-probe thread only when the folder is ONLINE, and stop
the thread when the folder is OFFLINE.  Make sure that the buffer is
disassociated from it's folder when the buffer is killed.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 992240bcd..631789f2f 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.267 2001/06/12 00:58:03 cph Exp $
+;;; $Id: imail-top.scm,v 1.268 2001/06/12 01:05:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1966,6 +1966,7 @@ Negative argument means search in reverse."
        (if folder
 	   (begin
 	     (ignore-modification-events folder notice-folder-event)
+	     (stop-probe-folder-thread folder)
 	     (remove-property! folder 'BUFFER)))))))
 
 (define (delete-associated-buffers folder-buffer)