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.3 -r1.4
--- openacs-4/packages/forums/tcl/messages-format-procs.tcl	22 Sep 2003 20:46:04 -0000	1.3
+++ openacs-4/packages/forums/tcl/messages-format-procs.tcl	17 Dec 2003 15:45:30 -0000	1.4
@@ -4,6 +4,19 @@
 
 namespace eval forum::format {
 
+    ad_proc -public reply_subject { parent_subject } {
+    
+        Generates a subject string for a reply to an existing message.
+
+    } {
+        set subject "[_ forums.Re] $parent_subject"
+        
+        # trim multiple leading Re:
+        regsub "^(\s*Re:\s*)*" $subject {Re: } subject
+
+        return $subject
+    }
+
     ad_proc emoticons {
         {-content:required}
     } {
@@ -35,4 +48,5 @@
         }
         return [string map $emoticons_map $content]
     }
+
 }