- re-enabled acs-mail-lite mail processing

tcl/acs-mail-lite-init.tcl

@@ -8,13 +8,25 @@ ad_library {
 
 }
 
-# Default interval is 1 minute.
-ad_schedule_proc -thread t 60 acs_mail_lite::sweeper
-
-# check every few minutes for bounces
-ad_schedule_proc -thread t [acs_mail_lite::get_parameter -name BounceScanQueue -default 120] acs_mail_lite::scan_replies
-
+# Initialize global "variables"
 nsv_set acs_mail_lite send_mails_p 0
 nsv_set acs_mail_lite check_bounce_p 0
 
+
+# Schedule processing outgoing mails
+set sweeper_interval 120
+ad_schedule_proc -thread t $sweeper_interval acs_mail_lite::sweeper
+
+# Schedule processing incoming mails
+set queue_interval 120
+set queue_dir [acs_mail_lite::get_parameter -name BounceMailDir]
+ad_schedule_proc -thread t $queue_interval acs_mail_lite::load_mails -queue_dir $queue_dir
+
+# Schedule for replies
+set reply_interval 120
+ad_schedule_proc -thread t $reply_interval acs_mail_lite::scan_replies
+
+# Schedule checking for bounces
+set bounce_interval [acs_mail_lite::get_parameter -name BounceScanQueue -default 120]
 ad_schedule_proc -thread t -schedule_proc ns_schedule_daily [list 0 25] acs_mail_lite::check_bounces
+