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.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	29 Nov 2007 14:19:44 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	6 Dec 2007 19:02:33 -0000	1.15
@@ -112,7 +112,8 @@
     # Expand any first-level multipart/alternative children.
     set expanded_parts [list]
     foreach part $parts {
-        if {[mime::getproperty $part content] eq "multipart/alternative"} {
+        catch {mime::getproperty $part content} this_content 
+        if { $this_content eq "multipart/alternative"} {
             foreach child_part [mime::getproperty $part parts] {
                 lappend expanded_parts $child_part
             }
@@ -122,7 +123,8 @@
     }
 
     foreach part $expanded_parts {
-        switch [mime::getproperty $part content] {
+        catch {mime::getproperty $part content} this_content 
+        switch $this_content {
             "text/plain" {
                 if { ![info exists plain] } {
                     set plain [mime::getbody $part]