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.13.2.1 -r1.13.2.2
--- openacs-4/packages/forums/www/message-post.tcl	22 Oct 2002 14:42:42 -0000	1.13.2.1
+++ openacs-4/packages/forums/www/message-post.tcl	20 Nov 2002 23:36:47 -0000	1.13.2.2
@@ -178,6 +178,8 @@
     set forum_id $parent_message(forum_id)
     set subject "Re: $parent_message(subject)"
 
+    # trim multiple leading Re:
+    regsub {^(\s*Re:\s*)*} $subject {Re: } subject
 }
 
 forum::security::require_post_forum -forum_id $forum_id