From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 31 May 2001 19:58:40 +0000 (+0000)
Subject: Implement START-STANDARD-POLLING-THREAD and
X-Git-Tag: 20090517-FFI~2758
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=79fae3d6388da957ff8878c3012e7c3cc5ddc856;p=mit-scheme.git

Implement START-STANDARD-POLLING-THREAD and
STOP-STANDARD-POLLING-THREAD to capture standard method of using
background thread to poll for output or events.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index b498e382d..39a6d2ae9 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.258 2001/05/31 19:57:40 cph Exp $
+;;; $Id: imail-top.scm,v 1.259 2001/05/31 19:58:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -2100,11 +2100,10 @@ Negative argument means search in reverse."
    (lambda ()
      (let ((folder (buffer-get buffer 'IMAIL-FOLDER #f))
 	   (interval (ref-variable imail-update-interval #f)))
-       (if (and folder interval
-		(not (get-property folder 'PROBE-REGISTRATION #f)))
+       (if (and folder interval)
 	   (store-property! folder
 			    'PROBE-REGISTRATION
-			    (start-standard-output-polling-thread
+			    (start-standard-polling-thread
 			     (* 1000 interval)
 			     (probe-folder-output-processor
 			      (weak-cons folder unspecific)))))))))
@@ -2125,7 +2124,7 @@ Negative argument means search in reverse."
 	   (begin
 	     (let ((holder (get-property folder 'PROBE-REGISTRATION #f)))
 	       (if holder
-		   (stop-standard-output-polling-thread holder)))
+		   (stop-standard-polling-thread holder)))
 	     (remove-property! folder 'PROBE-REGISTRATION)))))))
 
 ;;;; Message insertion procedures