Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -N -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/forums/www/message-post.tcl	22 Nov 2002 18:34:25 -0000	1.13.2.3
+++ openacs-4/packages/forums/www/message-post.tcl	28 Nov 2002 15:53:19 -0000	1.13.2.4
@@ -103,7 +103,7 @@
         set exported_vars [export_form_vars message_id forum_id parent_id subject content html_p confirm_p]
         
         set message(html_p) $html_p
-        set message(subject) $subject
+        set message(subject) [ad_quotehtml $subject]
         set message(content) $content
         set message(user_id) $user_id
         set message(user_name) [db_string select_name {}]
@@ -179,6 +179,7 @@
     forum::message::get -message_id $parent_id -array parent_message
     set forum_id $parent_message(forum_id)
     set subject "Re: $parent_message(subject)"
+    set parent_message(subject) [ad_quotehtml $parent_message(subject)]
 
     # trim multiple leading Re:
     regsub {^(\s*Re:\s*)*} $subject {Re: } subject