Index: openacs-4/packages/acs-mail/sql/postgres/acs-mail-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/postgres/Attic/acs-mail-packages-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-mail/sql/postgres/acs-mail-packages-create.sql	22 May 2001 03:46:13 -0000	1.4
+++ openacs-4/packages/acs-mail/sql/postgres/acs-mail-packages-create.sql	22 May 2001 16:31:19 -0000	1.5
@@ -51,6 +51,7 @@
 
 -- note for docs that I am making header_message_id mandatory
 -- jag
+drop function acs_mail_body__new (integer,integer,integer,timestamp,varchar,varchar,text,text,text,integer,varchar,date,integer,varchar,integer);
 
 create function acs_mail_body__new (integer,integer,integer,timestamp,varchar,varchar,text,text,text,integer,varchar,date,integer,varchar,integer)
 returns integer as ' 
@@ -72,8 +73,9 @@
     context_id        alias for $15;   -- default null
     v_object_id       integer;
  begin
-    if header_message_id is null then 
-        raise exception ''You didn't supply a header_message_id'';
+
+    if header_message_id is null or header_message_id = '''' then 
+        raise EXCEPTION ''-20100: You didn''t supply a header_message_id'';
     end if;
 
      v_object_id := acs_mail_gc_object__new (