Index: openacs-4/packages/forums/tcl/messages-format-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-format-procs.tcl,v
diff -u -r1.5 -r1.5.4.1
--- openacs-4/packages/forums/tcl/messages-format-procs.tcl	11 Aug 2006 23:40:01 -0000	1.5
+++ openacs-4/packages/forums/tcl/messages-format-procs.tcl	19 Apr 2008 00:55:45 -0000	1.5.4.1
@@ -8,13 +8,22 @@
     
         Generates a subject string for a reply to an existing message.
 
+        The prefix is always added using the system-wide locale to avoid
+        the uncontrollable growth of the subject in a multi-language
+        environment.
+
     } {
-        set subject "[_ forums.Re] $parent_subject"
-        
-        # trim multiple leading Re:
-        regsub {^(\s*Re:\s*)*} $subject {Re: } subject
 
+        set prefix [lang::message::lookup [lang::system::site_wide_locale] forums.Re]
+        set prefix "[string trim $prefix] "
+
+        # trim multiple leading prefixes:
+        regsub "^($prefix)+" $parent_subject {} parent_subject
+
+        set subject [concat $prefix $parent_subject]
+        
         return $subject
+
     }
 
     ad_proc emoticons {