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 @@
+
+
+
+ update acs_mail_lite_bounce
+ set bounce_count = bounce_count + 1
+ where party_id = :rcpt_id
+
+
+
+
+
+
+
+ insert into acs_mail_lite_bounce (party_id, bounce_count)
+ values (:rcpt_id, 1)
+
+
+
+