Index: openacs-4/packages/lars-blogger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	1 Jul 2003 13:28:26 -0000	1.1.2.5
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	9 Jan 2004 08:42:06 -0000	1.1.2.6
@@ -112,10 +112,17 @@
         append new_content "$blog(title_url)\n"
     }
     append new_content "\n"
-    append new_content "[ad_convert_to_text -- [ns_adp_parse -string $blog(content)]]\n\n"
-    append new_content "This entry: $entry_url\n\n"
-    append new_content "$blog_name: $blog_url\n"
+    append new_content [ad_html_text_convert \
+                            -from $blog(content_format) \
+                            -to "text/plain" -- \
+                            [ns_adp_parse -string \
+                                 [ad_html_text_convert \
+                                      -from $blog(content_format) \
+                                      -to "text/html" -- $blog(content)]]] \n\n
 
+    append new_content "This entry: " $entry_url \n\n
+    append new_content "$blog_name: " $blog_url \n
+    
     # Do the notification for the forum
     notification::new \
         -type_id [notification::type::get_type_id \