about summary refs log tree commit homepage
path: root/lib/PublicInbox
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2016-05-08 22:03:16 +0000
committerEric Wong <e@80x24.org>2016-05-13 11:18:14 +0000
commit265e79ff82ce6e22f039031f53068e51c6cc6c77 (patch)
tree7fc7c0af48560a02cd91a408b6d027e0d51c9308 /lib/PublicInbox
parenta6e0d5634e3e8076745b47c32cd81e6a5a60bbc4 (diff)
downloadpublic-inbox-265e79ff82ce6e22f039031f53068e51c6cc6c77.tar.gz
This reverts commit f81ad477cb013d05b9b11fa051a9ebc5983a5be6.

The raw, undecoded body is probably what should be sent over the
wire anyways for clients to deal with.  We'll need this to avoid
deprecation warnings with Perl 5.24+ since we use
send()/recv()/sysread().
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r--lib/PublicInbox/NNTP.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index 3e0faaf9..d177bdc4 100644
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -11,7 +11,7 @@ use PublicInbox::Search;
 use PublicInbox::Msgmap;
 use PublicInbox::Git;
 use PublicInbox::MID qw(mid2path);
-use Email::MIME;
+use Email::Simple;
 use Data::Dumper qw(Dumper);
 use POSIX qw(strftime);
 use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
@@ -114,7 +114,6 @@ sub expire_old () {
 sub new ($$$) {
         my ($class, $sock, $nntpd) = @_;
         my $self = fields::new($class);
-        binmode $sock, ':utf8'; # RFC 3977
         $self->SUPER::new($sock);
         $self->{nntpd} = $nntpd;
         res($self, '201 server ready - post via email');
@@ -488,7 +487,7 @@ find_mid:
 found:
         my $o = 'HEAD:' . mid2path($mid);
         my $bytes;
-        my $s = eval { Email::MIME->new($ng->gcf->cat_file($o, \$bytes)) };
+        my $s = eval { Email::Simple->new($ng->gcf->cat_file($o, \$bytes)) };
         return $err unless $s;
         my $lines;
         if ($set_headers) {