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 -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn/lib/member-email.tcl	8 Aug 2006 21:26:21 -0000	1.2
+++ openacs-4/packages/dotlrn/lib/member-email.tcl	15 Dec 2006 22:45:22 -0000	1.3
@@ -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 {