[Pgp-tools-commit] r701 - trunk/caff

[Guilhem Moulin]

Author: guilhem-guest
Date: 2014-09-04 20:20:31 +0000 (Thu, 04 Sep 2014)
New Revision: 701

Modified:
   trunk/caff/caff
Log:
Don't stringify MIME::Entity objects before printing.

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2014-09-04 20:20:26 UTC (rev 700)
+++ trunk/caff/caff	2014-09-04 20:20:31 UTC (rev 701)
@@ -1764,9 +1764,9 @@
 
 			my $keydir = "$KEYSBASE/$DATE_STRING";
 			my $mailfile = "$keydir/$longkeyid.mail.".($should_send_mail ? '' : 'unsent.').$uid->{'serial'}.".".sanitize_uid($uid->{'text'});
-			open (MAILFILE, '>', $mailfile) or die ("Cannot open $mailfile: $!\n");
-			print MAILFILE $mail->stringify();
-			close MAILFILE;
+			open my $MAILFILE, '>', $mailfile or die "Cannot open $mailfile: $!\n";
+			$mail->print($MAILFILE);
+			close $MAILFILE;
 		} else {
 			warn "Generating mail failed.\n";
 		};