alps theme: add button to load remote content

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,

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)}}