Index: openacs-4/packages/sloan-bboard/www/simple-message-full.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/sloan-bboard/www/simple-message-full.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/sloan-bboard/www/simple-message-full.tcl	23 Feb 2002 16:23:52 -0000	1.1
+++ openacs-4/packages/sloan-bboard/www/simple-message-full.tcl	25 Feb 2002 13:29:56 -0000	1.2
@@ -16,6 +16,10 @@
 set mail_friend_p [ad_parameter "MailFriendEnabledP"]
 set attachments_p [ad_parameter "AttachmentsEnabledP"]
 
+if {![info exists new_p]} {
+    set new_p "f"
+}
+
 if {[ad_parameter "UserPostsDeletableP"] == "t"} {
     if [info exists write_p] {
 	set delete_p $write_p