nntp: do not double-encode UTF-8 body

Or whatever the appropriate Perl terminology, is...
And we will need to do something appropriate for other
encodings, too.  I still barely understand Perl Unicode
despite attempting to understand the docs over the years..

1 files changed, 2 insertions, 0 deletions

diff --git a/t/nntpd.t b/t/nntpd.t
index 5f4ba57b..5875b737 100644
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -175,6 +175,8 @@ EOF
 
         is_deeply($n->head(1), $n->head('<nntp@example.com>'), 'HEAD OK');
         is_deeply($n->body(1), $n->body('<nntp@example.com>'), 'BODY OK');
+        is($n->body(1)->[0], "This is a test message for El\xc3\xa9anor\n",
+                'body really matches');
         my $art = $n->article(1);
         is(ref($art), 'ARRAY', 'got array for ARTICLE');
         is_deeply($art, $n->article('<nntp@example.com>'), 'ARTICLE OK');