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 -N -r1.3 -r1.4
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	28 Sep 2005 18:14:04 -0000	1.3
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	21 Oct 2005 18:04:17 -0000	1.4
@@ -20,8 +20,27 @@
     {-object_id}
     {-file_ids}
 } {
-}
 
+    Callback for executing code after an email has been send using the complex send mechanism.
+   
+    	@param from_party_id Who is sending the email
+	
+	@param to_party_id to whom did we send this email
+
+	@param subject of the email
+	
+	@param body Text body of the email
+	
+	@param package_id Package ID of the sending package
+	
+	@param file_ids List of file ids to be send as attachments. This will only work with files stored in the file system. The list is actually a string with the ids concated with a ",". 
+
+	@param object_id The ID of the object that is responsible for sending the mail in the first place
+
+	@param message_id the generated message_id for this mail
+
+} -
+
 ad_proc -public -callback acs_mail_lite::send {
     {-package_id:required}
     {-from_party_id:required}
@@ -38,6 +57,17 @@
 } {
 }
 
+ad_proc -public -callback acs_mail_lite::email_form_elements {
+    -varname:required
+} {
+}
+
+ad_proc -public -callback acs_mail_lite::files {
+    -varname:required
+    -recipient_ids:required
+} {
+}
+
 ad_proc -public -callback acs_mail_lite::incoming_email -impl acs-mail-lite {
     -array:required
     -package_id:required