Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	27 Feb 2004 15:50:15 -0000	1.10
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	28 Mar 2004 18:42:31 -0000	1.10.2.1
@@ -128,19 +128,19 @@
     } {
 	Checks if email address is bouncing mail
 	@option email email address to be checked for bouncing
-	@returns boolean 1 or 0
+	@returns boolean 1 if bouncing 0 if ok.
     } {
-	return [db_string can_send_p {} -default 0]
+	return [db_string bouncing_p {} -default 0]
     }
 
     ad_proc -public bouncing_user_p {
 	-user_id:required
     } {
 	Checks if email address of user is bouncing mail
 	@option user_id user to be checked for bouncing
-	@returns boolean 1 or 0
+	@returns boolean 1 if bouncing 0 if ok.
     } {
-	return [db_string can_send_p {} -default 0]
+	return [db_string bouncing_p {} -default 0]
     }
 
     ad_proc -private log_mail_sending {
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.3 -r1.3.2.1
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	16 Feb 2004 15:39:02 -0000	1.3
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	28 Mar 2004 18:42:31 -0000	1.3.2.1
@@ -1,10 +1,10 @@
 <?xml version="1.0"?>
 <queryset>
 
-    <fullquery name="acs_mail_lite::bouncing_email_p.can_send_p">
+    <fullquery name="acs_mail_lite::bouncing_email_p.bouncing_p">
       <querytext>
 
-    	select case when email_bouncing_p = 't' then 0 else 1 end 
+    	select case when email_bouncing_p = 't' then 1 else 0 end 
 	as send_p 
       	from cc_users 
      	where lower(email) = lower(:email)
@@ -13,10 +13,10 @@
     </fullquery>
 
 
-    <fullquery name="acs_mail_lite::bouncing_user_p.can_send_p">
+    <fullquery name="acs_mail_lite::bouncing_user_p.bouncing_p">
       <querytext>
 
-    	select case when email_bouncing_p = 't' then 0 else 1 end 
+    	select case when email_bouncing_p = 't' then 1 else 0 end 
 	as send_p 
       	from cc_users 
      	where user_id = :user_id