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.17 -r1.18
--- openacs-4/packages/forums/www/message-post.tcl	18 Nov 2002 18:01:08 -0000	1.17
+++ openacs-4/packages/forums/www/message-post.tcl	30 Nov 2002 17:35:39 -0000	1.18
@@ -9,6 +9,7 @@
 } -query {
     {forum_id ""}
     {parent_id ""}
+    {html_p "f"}
 } -validate {
     forum_id_or_parent_id {
         if {[empty_string_p $forum_id] && [empty_string_p $parent_id]} {
@@ -53,7 +54,7 @@
 element create message html_p \
     -label [_ forums.Format] \
     -datatype text \
-    -widget select \
+    -widget radio \
     -options [list [list [_ forums.text] f] [list [_ forums.html] t]]
 
 element create message parent_id \
@@ -100,7 +101,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 {}]
@@ -177,7 +178,10 @@
     forum::message::get -message_id $parent_id -array parent_message
     set forum_id $parent_message(forum_id)
     set subject "[_ forums.Re] $parent_message(subject)"
+    set parent_message(subject) [ad_quotehtml $parent_message(subject)]
 
+    # trim multiple leading Re:
+    regsub {^(\s*Re:\s*)*} $subject {Re: } subject
 }
 
 forum::security::require_post_forum -forum_id $forum_id