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.7 -r1.8
--- openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	14 Nov 2006 07:17:56 -0000	1.7
+++ openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	24 Dec 2006 11:12:24 -0000	1.8
@@ -13,6 +13,7 @@
 ad_proc -public -callback acs_mail_lite::complex_send -impl mail_tracking {
     {-package_id:required}
     {-from_party_id:required}
+    {-from_addr ""}
     {-to_party_ids ""}
     {-cc_party_ids ""}
     {-bcc_party_ids ""}
@@ -40,6 +41,7 @@
 
     set log_id [mail_tracking::new -package_id $package_id \
 		    -sender_id $from_party_id \
+		    -from_addr $from_addr \
 		    -recipient_ids $to_party_ids \
 		    -cc_ids $cc_party_ids \
 		    -bcc_ids $bcc_party_ids \