Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/forums/www/message-view.tcl	5 Jun 2002 19:25:37 -0000	1.5
+++ openacs-4/packages/forums/www/message-view.tcl	2 Jul 2002 02:00:01 -0000	1.6
@@ -23,6 +23,20 @@
 # Load up the message information
 forum::message::get -message_id $message_id -array message
 
+form create search -action search
+
+element create search search_text \
+    -label Search \
+    -datatype text \
+    -widget text \
+    -html {size 60}
+
+element create search forum_id \
+    -label ForumID \
+    -datatype text \
+    -widget hidden \
+    -value $message(forum_id)
+
 # Check if the message is approved
 if {!${moderate_p} && ![string equal $message(state) approved]} {
     ad_returnredirect "forum-view?forum_id=$message(forum_id)"