From 7293b7e8e7c0efddf4a8461440d49418a5b78fe1 Mon Sep 17 00:00:00 2001
From: Drew DeVault <sir@cmpwn.com>
Date: Wed, 20 May 2020 15:32:52 -0400
Subject: [PATCH] alps theme: add button to load remote content

---
 themes/alps/assets/style.css |  7 +++++++
 themes/alps/message.html     | 10 ++++++++++
 2 files changed, 17 insertions(+)

diff --git a/themes/alps/assets/style.css b/themes/alps/assets/style.css
index 9d51f45..f91a271 100644
--- a/themes/alps/assets/style.css
+++ b/themes/alps/assets/style.css
@@ -197,6 +197,13 @@ main.message th,
 main.event th { width: 5%;}
 main.message h1,
 main.event h1 { font-size: 1.2rem; padding: 0.5rem;}
+main.message .remote-content {
+  background: #eeffee;
+}
+
+main.message .remote-content td {
+  color: black;
+}
 
 main.message pre,
 main.message iframe,
diff --git a/themes/alps/message.html b/themes/alps/message.html
index 6e88297..521e835 100644
--- a/themes/alps/message.html
+++ b/themes/alps/message.html
@@ -168,6 +168,16 @@
             <td>{{template "addr-list" .Message.Envelope.Bcc}}</td>
           </tr>
           {{ end }}
+          {{if and .Extra.HasRemoteResources (not .Extra.RemoteResourcesAllowed)}}
+          <tr class="remote-content">
+            <td colspan="2">
+              This message contains remote content, such as external images.
+              <a href="?part={{.Part.PathString}}&allow-remote-resources=1">
+                Load remote content »
+              </a>
+            </td>
+          </tr>
+          {{end}}
         </table>
         <section class="parts">
           {{template "message-part-tree" (tuple $ .Message.PartTree)}}