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.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	9 Jan 2008 11:10:23 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	30 Jan 2008 21:56:40 -0000	1.17
@@ -138,10 +138,10 @@
         }
     }
 
-    if { [info exists html] } {
-        set body [ad_html_to_text -- $html]
-    } elseif { [info exists plain] } {
+    if { [info exists plain] } {
         set body $plain
+    } elseif { [info exists html] } {
+        set body [ad_html_to_text -- $html]
     } else {
         set body $message
     }