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 -N -r1.28.2.1 -r1.28.2.2
--- openacs-4/packages/forums/www/message-post.tcl	24 Nov 2003 14:57:34 -0000	1.28.2.1
+++ openacs-4/packages/forums/www/message-post.tcl	24 Nov 2003 17:57:55 -0000	1.28.2.2
@@ -109,21 +109,17 @@
 set attachments_enabled_p [forum::attachments_enabled_p]
 
 if {$attachments_enabled_p} {
-    if { ![info exists attach_p] } {
-        set attach_p 0
-    }
-
     element create message attach_p \
             -label [_ forums.Attach] \
             -datatype text \
             -widget radio \
-            -value $attach_p \
+            -value 0 \
             -options [list [list [_ forums.No] 0] [list [_ forums.Yes] 1]]
 }
 
 if {[form is_valid message]} {
     form get_values message \
-        message_id forum_id parent_id subject content html_p confirm_p subscribe_p anonymous_p
+        message_id forum_id parent_id subject content html_p confirm_p subscribe_p anonymous_p attach_p
     
     if { !$anonymous_allowed_p } {
         set anonymous_p 0
@@ -136,6 +132,7 @@
 	set subject.spellcheck ":nospell:"
 	set content.spellcheck ":nospell:"
         set content [string trimright $content]
+
         set exported_vars [export_form_vars message_id forum_id parent_id subject content html_p confirm_p subject.spellcheck content.spellcheck anonymous_p attach_p]
         
         set message(html_p) $html_p
@@ -266,4 +263,3 @@
 } else {
     lappend context [_ forums.Post_a_Message]
 }
-