Index: openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql	31 Oct 2001 20:42:07 -0000	1.7
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql	21 Nov 2001 21:22:56 -0000	1.8
@@ -6,9 +6,8 @@
 <fullquery name="acs_mail_set_content.insert_new_content">      
 <querytext>
 
-begin
-  return content_item__new(
-    varchar 'acs-mail message $body_id'::varchar, -- new__name
+select content_item__new(
+    'acs-mail message $body_id', -- new__name
     null,                     -- new__parent_id
     null,                     -- new__item_id
     null,                     -- new__locale
@@ -24,8 +23,7 @@
     :nls_language,            -- new__nls_language
     :content,                 -- new__text
     'text'                    -- new__storage_type
-  );
-end;
+  )
     
 </querytext>
 </fullquery>