Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.191.2.13 -r1.191.2.14
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	6 Sep 2005 17:21:47 -0000	1.191.2.13
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Sep 2005 03:09:18 -0000	1.191.2.14
@@ -2215,7 +2215,7 @@
 	{-override_subject ""}
 	{-email_send_to ""}
 	{-override_enabled:boolean}
-
+	{-message_only:boolean}
     } {
         Send a membership email to the user
 
@@ -2274,7 +2274,10 @@
 	    set var_list [array get vars]
 	    set subject [lang::message::format $subject $var_list]
 	    set email "[lang::message::format $email $var_list]"
-
+	    
+	    if {$message_only_p} {
+		return [list $subject $email]
+	    }
             # Shamelessly cut & pasted from bulk mail
             if { [empty_string_p $from_addr] } {
                 set from_addr [ad_system_owner]
@@ -2288,9 +2291,11 @@
 	       
             set extra_headers [ns_set create]
 
-            set message_html [ad_html_text_convert -from html -to html $email]
+            #set message_html [ad_html_text_convert -from text/enhanced -to text/html $email]
+set message_html [ad_html_text_convert -from html -to html $email]
             # some mailers are chopping off the last few characters.
             append message_html "   "
+#            set message_text [ad_html_text_convert -from text/html -to text/plain $email]
             set message_text [ad_html_text_convert -from html -to text $email]
 	    
             # Send email in iso8859-1 charset