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.18 -r1.19
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	19 Jan 2008 20:50:42 -0000	1.18
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	8 Sep 2008 20:26:43 -0000	1.19
@@ -70,6 +70,7 @@
     {-cc_addr}
     {-bcc_addr}
     {-file_ids}
+    {-object_id}
 } {
 
     Callback for executing code after an email has been send using the complex send mechanism.
@@ -94,6 +95,8 @@
 
 	@param file_ids List of file ids sent as attachments.
 
+    @param object_id The ID of the object that is responsible for sending the mail in the first place
+
 } -
 
 ad_proc -public -callback acs_mail_lite::incoming_email {