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 -r1.21 -r1.22
--- openacs-4/packages/forums/www/message-post.tcl	17 May 2003 10:43:31 -0000	1.21
+++ openacs-4/packages/forums/www/message-post.tcl	20 Jun 2003 15:24:24 -0000	1.22
@@ -104,7 +104,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) [ad_quotehtml $subject]
+        set message(subject) $subject
         set message(content) $content
         set message(user_id) $user_id
         set message(user_name) [db_string select_name {}]
@@ -181,7 +181,6 @@
     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