Index: openacs-4/packages/forums/lib/message/attachment-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.adp,v
diff -u -r1.2.8.1 -r1.2.8.2
--- openacs-4/packages/forums/lib/message/attachment-list.adp	21 Jun 2019 16:36:44 -0000	1.2.8.1
+++ openacs-4/packages/forums/lib/message/attachment-list.adp	25 Jun 2019 13:06:51 -0000	1.2.8.2
@@ -1,5 +1,5 @@
   <ul>
     <multiple name="attachments">
-      <li><img src="/resources/acs-subsite/attach.png" alt="#attachments.Attachment#"/> <a href="@attachments.url@">@attachments.name@</a></li>
+      <li><img src="/resources/acs-subsite/attach.png" alt="#attachments.Attachment#"/> <a href="@attachments.url@">@attachments.name@</a> (@attachments.content_size_pretty@)</li>
     </multiple>
   </ul>
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]