# command replaces the built-in one.
#
# To use this code, type
-# :perl do '/mit/snippets/barnowl/barnowl-zcrypt.pl'
+# :perl do '/mit/snippets/barnowl/zcrypt.pl'
#
# This first line will disable BarnOwl's own zcrypt code, so messages are
# encrypted onscreen. Use :decrypt to display them. (Security bugs were later
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;