Index: openacs-4/packages/acs-mail/acs-mail.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/acs-mail.info,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-mail/acs-mail.info	12 Jul 2004 14:49:48 -0000	1.22
+++ openacs-4/packages/acs-mail/acs-mail.info	24 Jul 2004 15:04:35 -0000	1.23
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.1.1" url="http://openacs.org/repository/download/apm/acs-mail-5.1.1.apm">
+    <version name="5.2.0d2" url="http://openacs.org/repository/download/apm/acs-mail-5.2.0d2.apm">
         <owner url="mailto:vinod@kurup.com">Vinod Kurup</owner>
         <owner url="mailto:prevost@maya.com">John Prevost</owner>
         <summary>General messaging system, mark II</summary>
@@ -18,7 +18,7 @@
         <description format="text/html">Provides generic message services, with email sending.  The acs-mail-lite package is the prefered 
         interface for new packages and it's anticipated that this package will ultimately be deprecated.</description>
 
-        <provides url="acs-mail" version="5.1.1"/>
+        <provides url="acs-mail" version="5.2.0d2"/>
         <requires url="acs-content-repository" version="5.0.0"/>
         <requires url="acs-kernel" version="5.0.0"/>
 
Index: openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql	12 Mar 2004 18:48:51 -0000	1.9
+++ openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql	24 Jul 2004 15:04:37 -0000	1.10
@@ -202,7 +202,8 @@
 
 create or replace function acs_mail_body__body_p(integer) 
 returns boolean as '
-	p_object_id		alias for $1;
+declare
+    p_object_id		alias for $1;
     v_check_body_id integer;
 begin
 	select count(body_id) into v_check_body_id
Index: openacs-4/packages/acs-mail/sql/postgresql/upgrade/upgrade-5.2.0d1-5.2.0d2.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/postgresql/upgrade/upgrade-5.2.0d1-5.2.0d2.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-mail/sql/postgresql/upgrade/upgrade-5.2.0d1-5.2.0d2.sql	24 Jul 2004 15:04:37 -0000	1.1
@@ -0,0 +1,16 @@
+create or replace function acs_mail_body__body_p(integer) 
+returns boolean as '
+declare
+    p_object_id		alias for $1;
+    v_check_body_id integer;
+begin
+	select count(body_id) into v_check_body_id
+	  from acs_mail_bodies where body_id = p_object_id;
+
+     if v_check_body_id <> 0 then
+         return ''t'';
+     else
+         return ''f'';
+     end if;
+end;
+' language 'plpgsql' stable;