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.14 -r1.15
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	29 Jan 2007 17:16:50 -0000	1.14
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	13 Sep 2007 13:52:05 -0000	1.15
@@ -127,16 +127,7 @@
         }
     } else {
 	ns_log Debug "acs_mail_lite::incoming_email impl acs-mail-lite: Bounce checking $to, $user_id"
-	
-	if { ![acs_mail_lite::bouncing_user_p -user_id $user_id] } {
-	    ns_log Debug "acs_mail_lite::incoming_email impl acs-mail-lite: Bouncing email from user $user_id"
-	    # record the bounce in the database
-	    db_dml record_bounce {}
-	    
-	    if {![db_resultrows]} {
-		db_dml insert_bounce {}
-	    }
-	}
+	acs_mail_lite::record_bounce -user $user_id
     }
 }