Index: openacs-4/packages/forums/lib/message/attachment-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/forums/lib/message/attachment-list.tcl	16 May 2018 22:04:59 -0000	1.8
+++ openacs-4/packages/forums/lib/message/attachment-list.tcl	25 Jun 2019 13:06:51 -0000	1.8.2.1
@@ -16,11 +16,15 @@
 }
 
 # get the attachments
-template::multirow create attachments url name
+template::multirow create attachments url name content_size_pretty
 foreach attachment [attachments::get_attachments -object_id $message(message_id)] {
+    set id      [lindex $attachment 0]
     set name    [lindex $attachment 1]
     set url     [lindex $attachment 2]
-    template::multirow append attachments $url $name
+
+    set content_size_pretty [util::content_size_pretty -size [db_string size {select content_length from cr_revisions where item_id = :id}]]
+
+    template::multirow append attachments $url $name $content_size_pretty
 }
 
 set attachment_graphic [attachments::graphic_url]