Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	13 May 2006 11:23:40 -0000	1.11
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	3 Dec 2006 13:23:24 -0000	1.12
@@ -62,6 +62,25 @@
      </querytext>
    </fullquery>
 
+   <fullquery name="acs_mail_lite::smtp.record_bounce">
+     <querytext>
+
+       update acs_mail_lite_bounce
+       set bounce_count = bounce_count + 1
+       where party_id = :rcpt_id
+
+     </querytext>
+   </fullquery>
+
+   <fullquery name="acs_mail_lite::smtp.insert_bounce">
+     <querytext>
+
+       insert into acs_mail_lite_bounce (party_id, bounce_count)
+       values (:rcpt_id, 1)
+
+     </querytext>
+   </fullquery>
+
    <fullquery name="acs_mail_lite::check_bounces.delete_log_if_no_recent_bounce">
      <querytext>