Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -N -r1.59.2.3 -r1.59.2.4
--- openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 10:28:25 -0000	1.59.2.3
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 10:39:22 -0000	1.59.2.4
@@ -388,12 +388,19 @@
     return $sort_filter
 }
 
-ad_proc -public forum::message::initial_message {
+ad_proc -deprecated forum::message::initial_message {
     {-forum_id {}}
     {-parent {}}
     {-message:required}
 } {
     Create an array with values initialized for a new message.
+
+    DEPRECATED: this proc is not used in current upstream code, its
+                upvar juggling is questionable and most of the data
+                returned is already provided from the start.
+
+    @see direct idioms on the api used in here
+    @see forum::format::reply_subject
 } {
     upvar $message init_msg