Index: openacs-4/packages/dotlrn/lib/member-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/lib/member-email.tcl,v
diff -u -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/dotlrn/lib/member-email.tcl	23 Sep 2005 17:45:21 -0000	1.1.2.9
+++ openacs-4/packages/dotlrn/lib/member-email.tcl	22 Aug 2006 18:12:57 -0000	1.1.2.10
@@ -98,7 +98,7 @@
             from dotlrn_member_emails
             where email_id = :email_id
         }
-        set email [list $email ""]
+        set email [list $email "text/html"]
     } -on_submit {
         set email [template::util::richtext::get_property contents $email]
     } -new_data {