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."
 #		}