Index: openacs.org-dev/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs.org-dev/packages/forums/www/message-post.tcl	12 Aug 2002 20:02:39 -0000	1.3
+++ openacs.org-dev/packages/forums/www/message-post.tcl	12 Aug 2002 20:18:26 -0000	1.4
@@ -46,7 +46,9 @@
 	{options {{text f} {html t}}}
     }
     {subscribe_p:text(hidden)}
-} -new_data {
+} -validate { content
+	{[expr {[string equal [set error_message [ad_html_security_check $content]] "" ]}]} $error_message
+    } -new_data {
 
         forum::get -forum_id $forum_id -array forum
 
@@ -114,10 +116,7 @@
     ad_returnredirect $redirect_url
 
     ad_script_abort
-    } -validate { content
-	{[expr {[string equal [set error_message [ad_html_security_check $content]] "" ]}]
-	} $error_message
-    }
+    } 
 
 set attachments_enabled_p [forum::attachments_enabled_p]