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 -N -r1.2.8.3 -r1.2.8.4
--- openacs-4/packages/forums/lib/message/attachment-list.adp	25 Jun 2019 14:15:37 -0000	1.2.8.3
+++ openacs-4/packages/forums/lib/message/attachment-list.adp	12 Jul 2019 13:00:49 -0000	1.2.8.4
@@ -1,5 +1,10 @@
   <ul>
     <multiple name="attachments">
-      <li><img src="@attachments.icon@" alt="#attachments.Attachment#"/> <a href="@attachments.url@">@attachments.name@</a> @attachments.content_size_pretty@</li>
+      <li>
+        <if @detach_p;literal@ true>
+            <a href="@detach_url@"><img src=@detach_icon@/></a>
+        </if>
+        <img src="@attachments.icon@" 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 -N -r1.8.2.5 -r1.8.2.6
--- openacs-4/packages/forums/lib/message/attachment-list.tcl	11 Jul 2019 17:01:26 -0000	1.8.2.5
+++ openacs-4/packages/forums/lib/message/attachment-list.tcl	12 Jul 2019 13:00:49 -0000	1.8.2.6
@@ -15,9 +15,14 @@
     set bgcolor "#ffffff"
 }
 #
+# Can the user detach?
+#
+set detach_p [permission::permission_p -object_id $message(message_id) -privilege write]
+set detach_icon "/resources/acs-subsite/Delete16.gif"
+#
 # Get the attachments
 #
-template::multirow create attachments url name content_size_pretty icon
+template::multirow create attachments url name content_size_pretty icon detach_url
 foreach attachment [attachments::get_attachments -object_id $message(message_id)] {
     set id      [lindex $attachment 0]
     set name    [lindex $attachment 1]
@@ -60,8 +65,14 @@
             set content_size_pretty "([lc_content_size_pretty -size $content_size])"
         }
     }
-
-    template::multirow append attachments $url $name $content_size_pretty $icon
+    #
+    # Detach URL
+    #
+    set detach_url "[attachments::get_url]/detach?object_id=$message(message_id)&attachment_id=$id&return_url=[ns_urlencode [ad_return_url]]"
+    #
+    # Add to multirow
+    #
+    template::multirow append attachments $url $name $content_size_pretty $icon $detach_url
 }
 
 set attachment_graphic [attachments::graphic_url]