Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/contacts/lib/email.tcl	31 Jan 2006 11:40:44 -0000	1.17
+++ openacs-4/packages/contacts/lib/email.tcl	31 Jan 2006 12:21:28 -0000	1.18
@@ -17,9 +17,6 @@
     }
 }
 
-if {![info exists mime_type]} {
-    set mime_type "text/plain"
-}
 if {![info exists cancel_url]} {
     set cancel_url $return_url
 }
@@ -290,8 +287,8 @@
 
 		} else {
 
+		    ad_return_error "$file_ids" "$content_body :: $mime_type"
 
-
 		    acs_mail_lite::complex_send \
 			-to_addr $to_addr \
 			-from_addr "$from_addr" \