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.23 -r1.24
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	27 Oct 2014 16:39:40 -0000	1.23
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	7 Aug 2017 23:47:57 -0000	1.24
@@ -24,32 +24,25 @@
     {-filesystem_files}
     {-delete_filesystem_files_p}
     {-object_id}
+    {-status ok}
+    {-errorMsg ""}
 } {
 
     Callback for executing code after an email has been send using the send mechanism.
     
 	@param package_id Package ID of the sending package
-	
 	@param message_id the generated message_id for this mail
-
 	@param from_addr email of the sender
-
 	@param to_addr list of emails to whom did we send this email
-
 	@param body Text body of the email
-
-    @param mime_type Mime type of the email body
-	
+        @param mime_type Mime type of the email body
 	@param subject of the email
-	
 	@param cc_addr list of emails to whom did we send this email in CC
-
 	@param bcc_addr list of emails to whom did we send this email in BCC
-
 	@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
-
+        @param object_id The ID of the object that is responsible for sending the mail in the first place
+        @param status Status of the send operation ("ok" or "error")
+        @param errorMsg Error Details
 } -
 
 ad_proc -public -callback acs_mail_lite::incoming_email {
@@ -99,7 +92,7 @@
     upvar $array email
 
     set to [acs_mail_lite::parse_email_address -email $email(to)]
-    ns_log Debug "acs_mail_lite::incoming_email -impl acs-mail-lite called. Recepient $to"
+    ns_log Debug "acs_mail_lite::incoming_email -impl acs-mail-lite called. Recipient $to"
 
     lassign [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature
     
@@ -112,3 +105,9 @@
     }
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: