Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/forums/tcl/messages-procs.tcl	17 Dec 2003 15:45:30 -0000	1.24
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	25 Mar 2004 16:16:58 -0000	1.25
@@ -136,6 +136,7 @@
 } {
     # do the update
     db_dml update_message {}
+    db_dml update_message_title {}
 }
 
 ad_proc -public forum::message::set_html_p {
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.3 -r1.4
--- openacs-4/packages/forums/tcl/messages-procs.xql	20 Sep 2002 21:31:26 -0000	1.3
+++ openacs-4/packages/forums/tcl/messages-procs.xql	25 Mar 2004 16:16:58 -0000	1.4
@@ -9,6 +9,14 @@
         </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::edit.update_message">
         <querytext>
             update forums_messages