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.2 -r1.3
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	21 Jan 2004 19:07:54 -0000	1.2
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql	16 Feb 2004 15:39:02 -0000	1.3
@@ -4,7 +4,7 @@
     <fullquery name="acs_mail_lite::bouncing_email_p.can_send_p">
       <querytext>
 
-    	select case when email_bouncing_p = 't' then 1 else 0 end 
+    	select case when email_bouncing_p = 't' then 0 else 1 end 
 	as send_p 
       	from cc_users 
      	where lower(email) = lower(:email)
@@ -16,7 +16,7 @@
     <fullquery name="acs_mail_lite::bouncing_user_p.can_send_p">
       <querytext>
 
-    	select case when email_bouncing_p = 't' then 1 else 0 end 
+    	select case when email_bouncing_p = 't' then 0 else 1 end 
 	as send_p 
       	from cc_users 
      	where user_id = :user_id