From cbf4cdfa925922fdb11c8d18e4d75fe6a24a1800 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 6 Oct 2002 22:30:14 +0000
Subject: [PATCH] Trailing newline to =input is written only when needed
 (shouldn't be)  - warn "Missing trailing newline, fixed" is given in such
 case

---
 perlmail-accept | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perlmail-accept b/perlmail-accept
index f241d9c..aca0ad9 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -565,7 +565,8 @@ my($folder)=@_;
 	do { warn "Lock \"$folder\": $!"; return 0; } if $_=Mail::Audit::audit_get_lock(\*F,$folder);
 	seek F,0,IO::Handle::SEEK_END or warn "Seek-end \"$folder\" (ignoring): $!";
 	# No 'need_from' here although it is a bit risky to rely on our network peer
-	print F $Message,"\n" or warn "Write to \"$folder\": $!";
+	print F $Message or warn "Write to \"$folder\": $!";
+	do { print F "\n"; warn "Missing trailing newline, fixed"; } if $Message!~/\n$/s;
 	close F or warn "Close \"$folder\"";
 	return 1;	# some attempt was made, FIXME: proper error detection
 }
-- 
1.8.3.1