Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/forums/www/message-view.tcl	18 Nov 2002 18:01:08 -0000	1.13
+++ openacs-4/packages/forums/www/message-view.tcl	30 Nov 2002 17:35:39 -0000	1.14
@@ -27,6 +27,7 @@
 
 # Load up the message information
 forum::message::get -message_id $message_id -array message
+set message(subject) [ad_quotehtml $message(subject)]
 
 form create search -action search
 
@@ -88,10 +89,12 @@
     set order_by "tree_sortkey"
 }
 
-db_multirow -extend { posting_date_pretty } responses $query {} {
+db_multirow -extend { posting_date_pretty } responses $query {} { 
+    set subject [ad_quotehtml $subject]
     set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
 }
 
+
 # If this is a top-level thread, we allow subscriptions here
 if {[empty_string_p $message(parent_id)]} {
     set notification_chunk [notification::display::request_widget \