Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	12 Feb 2004 18:32:32 -0000	1.21
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	29 Jun 2004 10:18:42 -0000	1.22
@@ -88,7 +88,8 @@
         reply_object_id
         notification_type_id
         subject
-        content
+        content_text
+        content_html
     } {
         Send the actual email.
 
@@ -99,7 +100,8 @@
         
        # Variable used in the content
        set manage_notifications_url [manage_notifications_url]
-       append content "\n[_ notifications.lt_Getting_too_much_emai]"
+       append content_text "\n[_ notifications.lt_Getting_too_much_emai]"
+       append content_html "\n[_ notifications.lt_Getting_too_much_emai]"
 
         # Use this to build up extra mail headers        
         set extra_headers [ns_set new]
@@ -120,6 +122,12 @@
             set from_email $reply_to
         }
 
+        set message_data [build_mime_message $content_text $content_html]
+        ns_set put $extra_headers MIME-Version [ns_set get $message_data MIME-Version]
+        ns_set put $extra_headers Content-ID [ns_set get $message_data Content-ID]
+        ns_set put $extra_headers Content-Type [ns_set get $message_data Content-Type]
+        set content [ns_set get $message_data body]
+
         acs_mail_lite::send \
             -to_addr $email \
             -from_addr $from_email \