From: Jonathan McDowell <noodles@earth.li>
Date: Wed, 15 Jun 2005 10:41:54 +0000 (+0000)
Subject: cscvs to tla changeset 13
X-Git-Url: https://the.earth.li/gitweb/?p=autodns.git;a=commitdiff_plain;h=8ecbe90f448e63afd96cd1654bf5a5ba84e1f805

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 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.