Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.13.2.4 -r1.13.2.5
--- openacs-4/packages/forums/www/message-post.tcl	28 Nov 2002 15:53:19 -0000	1.13.2.4
+++ openacs-4/packages/forums/www/message-post.tcl	20 Jan 2003 14:29:04 -0000	1.13.2.5
@@ -183,10 +183,15 @@
 
     # trim multiple leading Re:
     regsub {^(\s*Re:\s*)*} $subject {Re: } subject
+
+    # see if they're allowed to add to this thread
+    forum::security::require_post_message -message_id $parent_id
+} else {
+    # no parent_id, therefore new thread
+    # require thread creation privs
+    forum::security::require_post_forum -forum_id $forum_id
 }
 
-forum::security::require_post_forum -forum_id $forum_id
-
 forum::get -forum_id $forum_id -array forum
 
 # Prepare the other data