Index: openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	13 Jan 2010 10:55:33 -0000	1.18
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	27 Oct 2014 16:40:07 -0000	1.19
@@ -100,7 +100,10 @@
     To make our lives simpler we support only text/html as a special case;
     in all other cases the plain text is returned.
 } {
-    set mime [mime::initialize -string $message]
+    if { [catch {set mime [mime::initialize -string $message]} err ] } {
+        ns_log error "parse_incoming_email: could not parse message; error was $err"
+        return ""
+    }
     set content [mime::getproperty $mime content]
 
     if { [string first "multipart" $content] != -1 } {