Index: openacs-4/packages/acs-messaging/sql/postgresql/acs-messaging-packages.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/sql/postgresql/acs-messaging-packages.sql,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-messaging/sql/postgresql/acs-messaging-packages.sql	28 Aug 2003 09:41:39 -0000	1.13
+++ openacs-4/packages/acs-messaging/sql/postgresql/acs-messaging-packages.sql	11 Dec 2003 21:39:54 -0000	1.14
@@ -191,7 +191,7 @@
     else
         return ''f'';
     end if;
-end;' language 'plpgsql';
+end;' language 'plpgsql' stable;
 
 create or replace function acs_message__send (integer,varchar,integer,timestamptz)
 returns integer as '
@@ -247,7 +247,7 @@
      where tree_sortkey = v_ancestor_sk;
 
     return v_message_id;
-end;' language 'plpgsql';
+end;' language 'plpgsql' stable strict;
 
     -- ACHTUNG!  WARNING!  ACHTUNG!  WARNING!  ACHTUNG!  WARNING! --
 
@@ -466,11 +466,9 @@
 declare
     p_image_id  alias for $1;
 begin
-    -- XXX fix after image.delete exists
-    delete from images
-        where image_id = p_image_id;
-    perform content_item__delete(p_image_id);
-    return 1;
+    perform image__delete(p_image_id);
+
+    return 0;
 end;' language 'plpgsql';
 
     -- XXX should just call content_extlink.new
@@ -545,5 +543,5 @@
         from acs_messages_all
         where message_id = p_message_id;
     return v_message_name;
-end;' language 'plpgsql';
+end;' language 'plpgsql' stable strict;