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.2 -r1.3
--- openacs-4/packages/forums/www/message-post.tcl	30 May 2002 06:25:52 -0000	1.2
+++ openacs-4/packages/forums/www/message-post.tcl	1 Jun 2002 19:33:42 -0000	1.3
@@ -13,6 +13,7 @@
 
 # Either forum_id or parent_id has to be non-null
 if {[empty_string_p $forum_id] && [empty_string_p $parent_id]} {
+    ns_log Notice "BMA: both are null!"
     # error!
     return -code error
 }
@@ -42,7 +43,7 @@
         -label "Confirm?" -datatype text -widget hidden
 
 element create message subscribe_p \
-        -label "Subscribe?" -datatype text -widget hidden
+        -label "Subscribe?" -datatype text -widget hidden -optional
 
 if {[form is_valid message]} {
     template::form get_values message message_id forum_id parent_id subject content html_p confirm_p subscribe_p
@@ -79,7 +80,7 @@
 
     set message_view_url "[ad_conn package_url]message-view?message_id=$message_id"
 
-    if {$subscribe_p && [empty_string_p $parent_id]} {
+    if {![empty_string_p $subscribe_p] && $subscribe_p && [empty_string_p $parent_id]} {
         set notification_url [notification::display::subscribe_url -type forums_message_notif -object_id $message_id -url $message_view_url -user_id [ad_conn user_id]]
 
         # redirect to notification stuff