cscvs to tla changeset 13

Author: noodles
Date: 2005/05/31 17:17:46
Support MIME content encoding for cleartext signed mails.

git-archimport-id: noodles@earth.li--pie/autodns--mainline--1.0--patch-12

diff --git a/autodns.pl b/autodns.pl
index 11f6b3180e5d1224d7dedb8743437d3aa53ca328..d017e600f23695d0a3af9209e015939632dbf2dd 100755 (executable)
--- 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.