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.21 -r1.22
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	15 Jun 2005 17:08:11 -0000	1.21
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	15 Jun 2005 22:13:01 -0000	1.22
@@ -814,7 +814,9 @@
 	}
 	
 	set multi_token [mime::initialize -canonical multipart/mixed -parts "$tokens"]
-	set packaged [mime::buildmessage $multi_token]
+
+	mime::setheader $multi_token Subject "$subject"
+ 	set packaged [mime::buildmessage $multi_token]
 	
 	#Close all mime tokens
 	mime::finalize $multi_token -subordinates all
@@ -834,7 +836,7 @@
 	    -message_id $message_id \
 	    -subject $subject \
 	    -object_id $object_id \
-	    -file_ids $file_ids
+	    -file_ids [split $file_ids ","]
     }
 	 
     ad_proc -private sweeper {} {