nntp: ensure body lines end with CRLF

It's common for mail bodies to end with LF-only, so end them with
CRLF to avoid triggering errors in clients.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index bc8d6eda..71b774d2 100644
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -393,7 +393,9 @@ sub simple_body_write ($$) {
         my $body = $s->body;
         $s->body_set('');
         $body =~ s/^\./../smg;
+        $body =~ s/(?<!\r)\n/\r\n/sg;
         do_more($self, $body);
+        do_more($self, "\r\n") unless $body =~ /\r\n\z/s;
         '.'
 }