Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	6 Feb 2007 11:32:56 -0000	1.58
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	5 Apr 2007 11:37:22 -0000	1.59
@@ -1285,12 +1285,16 @@
 
 	# make the bodies an array
 	template::util::list_of_lists_to_array $email(bodies) email_body
-	
+	ns_log Notice "Mail through e-mail:: $email(bodies)"
 	if {[exists_and_not_null email_body(text/html)]} {
 	    set body $email_body(text/html)
 	    set mime_type "text/html"
 	} else {
-	    set body $email_body(text/plain)
+	    if {[exists_and_not_null email_body(text/plain)]} {
+		set body $email_body(text/plain)
+	    } else {
+		set body ""
+	    }
 	    set mime_type "text/plain"
 	}