Index: openacs-4/packages/contacts/www/message-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-ae.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/www/message-ae.tcl	28 Oct 2005 17:57:18 -0000	1.3
+++ openacs-4/packages/contacts/www/message-ae.tcl	26 Dec 2005 16:46:00 -0000	1.4
@@ -69,6 +69,21 @@
 	    {content:richtext(richtext) {label "[_ contacts.Message]"} {html {cols 70 rows 24}}}
 	}
     }
+    oo_mailing {
+	append form_elements {
+	    {spoiler:text(text),optional
+                {label "[_ contacts.Spoiler]"} 
+                {help_text "[_ contacts.Spoiler_help_text]"}
+                {html {size 45 maxlength 1000}}
+            }
+	    {content:richtext(richtext) {label "[_ contacts.Message]"} {html {cols 70 rows 24}}}
+	    {ps:text(text),optional
+                {label "[_ contacts.PS]"} 
+                {help_text "[_ contacts.PS_help_text]"}
+                {html {size 45 maxlength 1000}}
+            }
+	}
+    }
     header {
 	append form_elements {
 	    {content:richtext(richtext) {label "[_ contacts.Header]"} {html {cols 70 rows 24}}}
@@ -115,8 +130,10 @@
 	    -description $description \
 	    -content $content \
 	    -content_format $content_format \
-	    -locale $locale
-
+	    -locale $locale \
+            -spoiler $spoiler \
+            -ps $ps
+           
     } -after_submit {
 	ad_returnredirect $return_url
 	ad_script_abort