Index: openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	24 Oct 2005 17:41:10 -0000	1.3
+++ openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	17 Mar 2006 10:06:46 -0000	1.4
@@ -19,20 +19,26 @@
     {-subject ""}
     {-object_id ""}
     {-file_ids ""}
+    {-cc ""}
 } {
     create a new entry in the mail tracking table
 } {
     
+    if {![exists_and_not_null cc]} {
+	set cc ""
+    }
     # We need to put lindex here since the value from
     # the swithc converts this "element element" to this
     # "{element element}"
-    set file_ids [lindex $file_ids 0]
+    # set file_ids [lindex $file_ids 0]
+    set file_ids [string trim $file_ids "{}"]
     set log_id [mail_tracking::new -package_id $package_id \
 		    -sender_id $from_party_id \
 		    -recipient_id $to_party_id \
 		    -body $body \
 		    -message_id $message_id \
 		    -subject $subject \
+		    -cc $cc \
 		    -object_id $object_id]
 
     foreach file_id $file_ids {