From: Eric Wong <e@80x24.org>
Date: Sun, 2 Aug 2015 06:35:57 +0000 (+0000)
Subject: public-inbox-learn: preserve headers for ham injection
X-Git-Tag: v1.0.0~1073
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=4246aa829cef47b9d7a0400e1fe166b319b2f761;p=public-inbox.git

public-inbox-learn: preserve headers for ham injection

We must inject headers properly for injecting ham, otherwise
List-Id headers get dropped.
---

diff --git a/public-inbox-learn b/public-inbox-learn
index db0a1bb3..d3a05abe 100755
--- a/public-inbox-learn
+++ b/public-inbox-learn
@@ -60,6 +60,7 @@ foreach my $recipient (keys %dests) {
 		# no checking for spam here, we assume the message has
 		# been reviewed by a human at this point:
 		PublicInbox::MDA->set_list_headers($mime, $dst);
+		my $s  = $mime->as_string;
 
 		local $ENV{GIT_AUTHOR_NAME} = $name;
 		local $ENV{GIT_AUTHOR_EMAIL} = $email;
@@ -67,7 +68,7 @@ foreach my $recipient (keys %dests) {
 
 		# Ham messages are trained when they're marked into
 		# a SEEN state, so this is idempotent:
-		run([PublicInbox::MDA->cmd, $git_dir], \$in, \$out, \$err);
+		run([PublicInbox::MDA->cmd, $git_dir], \$s, \$out, \$err);
 		if ($err !~ /CONFLICT/) {
 			$err = 1;
 		}