Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-init.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-init.tcl	12 Mar 2006 14:33:22 -0000	1.5
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-init.tcl	8 Jun 2006 07:12:03 -0000	1.6
@@ -11,8 +11,10 @@
 # Default interval is 1 minute.
 ad_schedule_proc -thread t 60 acs_mail_lite::sweeper
 
-ad_schedule_proc -thread t 120 acs_mail_lite::load_mails -queue_dir "/home/malte/mail"
+set queue_dir [parameter::get_from_package_key -paramater "BounceMailDir" -package_key "acs-mail-lite"]
 
+ad_schedule_proc -thread t 120 acs_mail_lite::load_mails -queue_dir $queue_dir
+
 # 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
 
Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	1 Jun 2006 13:04:50 -0000	1.49
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Jun 2006 07:12:03 -0000	1.50
@@ -246,9 +246,6 @@
         @see acs_mail_lite::parse_email
     } {
        
-	# FIXME
-	set queue_dir "/home/malte/mail/"
-	
         # get list of all incoming mail
         if {[catch {
             set messages [glob "$queue_dir/new/*"]
@@ -303,10 +300,8 @@
 		    #    ns_log Notice "load_mails: Prefix $prefix found. Calling callback implmentation $impl_name for package_id $package_id"
 		    #    callback -impl $impl_name acs_mail_lite::incoming_email -array email -package_id $package_id
 
-		    callback -impl wieners acs_mail_lite::incoming_email -array email
-
 		    # We execute all callbacks now
-		    # callback acs_mail_lite::incoming_email -array email
+		    callback acs_mail_lite::incoming_email -array email
 #		} else {
 #		    ns_log Notice "load_mails: prefix not found. Doing nothing."
 #		}