Index: openacs.org-dev/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v
diff -u -r1.10 -r1.11
--- openacs.org-dev/packages/forums/www/message-post.tcl	1 Nov 2002 16:18:17 -0000	1.10
+++ openacs.org-dev/packages/forums/www/message-post.tcl	7 Nov 2002 08:40:59 -0000	1.11
@@ -178,6 +178,7 @@
     forum::message::get -message_id $parent_id -array parent_message
     set forum_id $parent_message(forum_id)
     set subject "Re: $parent_message(subject)"
+    regsub {^(\s*Re:\s*)*} $subject {Re: } subject
 
 }