Index: openacs-4/packages/forums/tcl/messages-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.xql,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs-4/packages/forums/tcl/messages-procs.xql	29 May 2002 21:40:10 -0000	1.1.1.1
+++ openacs-4/packages/forums/tcl/messages-procs.xql	28 Jun 2006 20:30:28 -0000	1.1.1.2
@@ -1,31 +1,38 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="forum::message::set_html_p.update_message_html_p">
-<querytext>
-update forums_messages set
-html_p= :html_p
-where 
-message_id= :message_id
-</querytext>
-</fullquery>
+    <fullquery name="forum::message::set_format.update_message_format">
+        <querytext>
+            update forums_messages
+            set format = :format
+            where message_id = :message_id
+        </querytext>
+    </fullquery>
 
-<fullquery name="forum::message::edit.update_message">
-<querytext>
-update forums_messages set
-subject= :subject,
-content= :content,
-html_p= :html_p
-where message_id= :message_id
-</querytext>
-</fullquery>
+    <fullquery name="forum::message::edit.update_message_title">
+        <querytext>
+            update acs_objects 
+            set title = :subject
+            where object_id = :message_id and object_type = 'forums_message'
+        </querytext>
+    </fullquery>
 
-<fullquery name="forum::message::set_state.update_message_state">
-<querytext>
-update forums_messages set
-state= :state
-where message_id= :message_id
-</querytext>
-</fullquery>
+    <fullquery name="forum::message::edit.update_message">
+        <querytext>
+            update forums_messages
+            set subject = :subject,
+                content = :content,
+                format = :format
+            where message_id = :message_id
+        </querytext>
+    </fullquery>
 
+    <fullquery name="forum::message::new.message_exists_p">
+        <querytext>
+	  select count(message_id)
+	  from forums_messages 
+	  where message_id = :message_id
+        </querytext>
+    </fullquery>
+
 </queryset>