barnowl/zcrypt.pl: Pass the unencrypted message to zcrypt

If barnowl has already decrypted a message, :decrypt should still work.

Signed-off-by: Geoffrey Thomas <geofft@mit.edu>

diff --git a/barnowl/zcrypt.pl b/barnowl/zcrypt.pl
index 75d73a7338a18abe02519fdf4b3ac5e481c76fd0..cf864fb26e847f28d46791d2a4a5e3c517026ad2 100644 (file)
--- a/barnowl/zcrypt.pl
+++ b/barnowl/zcrypt.pl
@@ -25,7 +25,7 @@ BarnOwl::new_command(decrypt => sub {
    my ($zo, $zi);
    my $pid = open2($zo, $zi, '/mit/outland/bin/zcrypt', '-D', @args) or die "Couldn't launch zcrypt\n";
    my $decrypted;
-   print $zi $msg->body . "\n";
+   print $zi $msg->fields[1] . "\n";
    close $zi;
    while (<$zo>) {
       chomp;