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.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl 6 Oct 2006 13:39:40 -0000 1.9
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl 10 Jan 2007 21:22:12 -0000 1.10
@@ -116,7 +116,7 @@
# Expand any first-level multipart/alternative children.
set expanded_parts [list]
foreach part $parts {
- if { [string equal [mime::getproperty $part content] "multipart/alternative" ] } {
+ if {[mime::getproperty $part content] eq "multipart/alternative"} {
foreach child_part [mime::getproperty $part parts] {
lappend expanded_parts $child_part
}