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.11 -r1.12
--- openacs-4/packages/contacts/www/message-ae.tcl	14 Dec 2006 09:13:23 -0000	1.11
+++ openacs-4/packages/contacts/www/message-ae.tcl	27 Jun 2007 02:50:51 -0000	1.12
@@ -147,19 +147,11 @@
 	} 
 	
     } -on_submit {
-
-	if {![exists_and_not_null banner]} {
-	    set banner ""
+	foreach variable [list banner ps content description oo_template] {
+	    if { ![exists_and_not_null $variable] } {
+		set $variable ""
+	    }
 	}
-	if {![exists_and_not_null ps]} {
-	    set ps ""
-	}
-	if {![exists_and_not_null content]} {
-	    set content ""
-	}
-	if {![exists_and_not_null description]} {
-	    set description ""
-	}
 	if { $message_type != "email" } {
 	    set content_format [template::util::richtext::get_property format $content]
 	    set content [template::util::richtext::get_property content $content]