Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	11 Dec 2003 21:39:58 -0000	1.8
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	26 Oct 2006 11:06:10 -0000	1.9
@@ -171,7 +171,10 @@
     } {
         process any bulk_mails that are ready to send
     } {
-
+        if {[nsv_get bulk_mail_sweep bulk_mail_sweep] == 1} {
+            return
+        }
+        nsv_set bulk_mail_sweep bulk_mail_sweep 1
 	ns_log Debug "bulk_mail::sweep starting"
 
         ## JCD: this transaction is misguided since any code 
@@ -286,7 +289,7 @@
                 db_dml mark_message_sent {}
             }
         #}
-
+        nsv_unset bulk_mail_sweep bulk_mail_sweep
         ns_log Debug "bulk_mail::sweep ending"
     }