X-Git-Url: https://the.earth.li/gitweb/?p=autodns.git;a=blobdiff_plain;f=autodns.pl;fp=autodns.pl;h=d017e600f23695d0a3af9209e015939632dbf2dd;hp=11f6b3180e5d1224d7dedb8743437d3aa53ca328;hb=8ecbe90f448e63afd96cd1654bf5a5ba84e1f805;hpb=5f0439a6a86532cb421881271a37539d224aaafd

diff --git a/autodns.pl b/autodns.pl
index 11f6b31..d017e60 100755
--- a/autodns.pl
+++ b/autodns.pl
@@ -5,7 +5,7 @@
 # http://www.earth.li/projectpurple/progs/autodns.html
 # Released under the GPL.
 #
-# $Id: autodns.pl,v 1.12 2005/05/31 12:20:23 noodles Exp $
+# $Id: autodns.pl,v 1.13 2005/05/31 17:17:46 noodles Exp $
 #
 
 use strict;
@@ -254,7 +254,7 @@ if ($entity->parts) {
 	my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
 
 	# Feed it the mail.
-	print GPGIN @MAIL;
+	print GPGIN $entity->bodyhandle->as_string;
 	close GPGIN;
 
 	# And grab what it has to say.