Index: openacs.org-dev/packages/forums/www/message-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-chunk.adp,v
diff -u -r1.6 -r1.7
--- openacs.org-dev/packages/forums/www/message-chunk.adp	1 Nov 2002 16:19:23 -0000	1.6
+++ openacs.org-dev/packages/forums/www/message-chunk.adp	7 Nov 2002 09:08:18 -0000	1.7
@@ -32,7 +32,7 @@
 
 
 </tr>
-<if @default_subject@ ne @message.subject@>
+<if @display_subject_p@>
 <tr>
   <td>
   <strong>
Index: openacs.org-dev/packages/forums/www/message-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-chunk.tcl,v
diff -u -r1.4 -r1.5
--- openacs.org-dev/packages/forums/www/message-chunk.tcl	21 Oct 2002 18:43:10 -0000	1.4
+++ openacs.org-dev/packages/forums/www/message-chunk.tcl	7 Nov 2002 09:08:18 -0000	1.5
@@ -25,6 +25,8 @@
 if {![exists_and_not_null forum_moderated_p]} {set forum_moderated_p 0}
 
 if {![info exists root_subject]} {
-    set root_subject ""
+    set display_subject_p 1
+} else { 
+    regsub {^(Response to |\s*Re:\s*)*} $message(subject) {} subject
+    set display_subject_p [expr ![string equal $subject $root_subject]]
 }
-set default_subject "Response to $root_subject"
\ No newline at end of file