diff -r e65ad1481966 -r 4ba3303aae86 scratch/sign
--- a/scratch/sign	Wed Jan 04 14:15:39 2012 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,59 +0,0 @@
-#! /usr/bin/perl
-
-use 5.010;
-use strict;
-use warnings;
-use File::Temp;
-use autodie qw(:all);
-
-use Digest::MD5 qw(md5_hex);
-
-use blib;
-use Message::2822;
-
-umask(077);
-my $boundary = md5_hex(time);
-my $dir = File::Temp->newdir();
-
-my $unsigned = Message::2822->new(file => shift//"ex/mails/unsigned");
-
-die join " ", $unsigned->header_contents("Subject");
-
-# copy the body into a tmp file and copy there the content-
-# header lines
-open(my $message, "+>$dir/message");
-print {$message}
-    $unsigned->header_lines("content-"), "\n",
-    $unsigned->orig_body;
-$message->flush();
-
-# now remove the unwanted content- header lines and add new ones
-$unsigned->remove_header_lines(qr/^content-.*?:/im);
-
-$unsigned->add_header_line("Content-Type: "
-    . "multipart/signed; micalg=pgp-sha1;\n"
-    . "\tprotocol=\"application/pgp-signature\"; boundary=\"$boundary\"");
-$unsigned->add_header_line("Content-Disposition: inline");
-
-
-# ask GPG to sign it…
-system("gpg",
-    "--detach-sign",
-    "--homedir" => "ex/gpg",
-    "--armor" => "$dir/message");
-
-open(my $sig, "$dir/message.asc");
-
-print $unsigned->header_lines, "\n";
-
-seek($message, 0, 0);
-
-print "--${boundary}\n",
-      <$message>,
-      "--${boundary}\n",
-      <<___, <$sig>, "\n--${boundary}--\n";
-Content-Type: application/pgp-signature; name="signature.asc"
-Content-Description: Digital Signature
-Content-Disposition: inline
-
-___