Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	18 Mar 2009 22:41:15 -0000	1.22
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	27 Oct 2014 16:39:40 -0000	1.23
@@ -21,6 +21,8 @@
     {-cc_addr}
     {-bcc_addr}
     {-file_ids}
+    {-filesystem_files}
+    {-delete_filesystem_files_p}
     {-object_id}
 } {
 
@@ -99,7 +101,7 @@
     set to [acs_mail_lite::parse_email_address -email $email(to)]
     ns_log Debug "acs_mail_lite::incoming_email -impl acs-mail-lite called. Recepient $to"
 
-    util_unlist [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature
+    lassign [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature
     
     # If no user_id found or signature invalid, ignore message
     if {$user_id eq ""} {