Index: openacs-4/packages/notifications/tcl/reply-sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/reply-sweep-init.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/notifications/tcl/reply-sweep-init.tcl	10 Sep 2002 22:23:11 -0000	1.2
+++ openacs-4/packages/notifications/tcl/reply-sweep-init.tcl	29 Dec 2002 02:45:46 -0000	1.2.2.1
@@ -8,6 +8,13 @@
 
 }
 
-ad_schedule_proc -thread t 60 notification::reply::sweep::scan_all_replies
-ad_schedule_proc -thread t 60 notification::reply::sweep::process_all_replies
+# Roberto Mello (12/2002): Added parameter and check for qmail queue scanning
 
+set scan_replies_p [parameter::get \
+			-package_id [apm_package_id_from_key notifications] \
+			-parameter EmailQmailQueueScanP -default 0]
+
+if { $scan_replies_p == 1 } {
+    ad_schedule_proc -thread t 60 notification::reply::sweep::scan_all_replies
+    ad_schedule_proc -thread t 60 notification::reply::sweep::process_all_replies
+}