Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.42.2.6 -r1.42.2.7
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	21 Jul 2004 22:37:18 -0000	1.42.2.6
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	25 Jul 2004 14:45:28 -0000	1.42.2.7
@@ -846,15 +846,18 @@
     }
 
     append text_version "View folder contents: $url$path1?folder_id=$folder_id \n\n"
-    set new_content $text_version
+
+    set html_version [ad_html_text_convert -from text/plain -to text/html -- $text_version]
+    append html_version "<br /><br />"
     # Do the notification for the file-storage
     
     notification::new \
         -type_id [notification::type::get_type_id \
                       -short_name fs_fs_notif] \
         -object_id $folder_id \
         -notif_subject {File Storage Notification} \
-        -notif_text $new_content
+        -notif_text $text_version \
+        -notif_html $html_version
 
     # walk through all folders up to the root folder
     while {$folder_id != $root_folder} {