From e1e02809bf973873ac6c2d77bc169c4b5b0b0a17 Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 16 Apr 2003 16:24:14 +0000
Subject: [PATCH] Failed &write_message is now fatal

---
 perlmail-accept | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perlmail-accept b/perlmail-accept
index 192ffce..eeb104b 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -407,7 +407,7 @@ my($folder,$profile,%args)=@_;
 	push @AuditStored,$folder if $do{"did"};
 	return if $store_ignore || $opt_dry;
 	$DoBell++ if $do{"bell"};
-	write_message($folder);
+	write_message($folder) or die;
 	smssend_tryall $store_ignorenewmail,$do{"sms"},%args if $do{"sms"};
 }
 
@@ -463,7 +463,7 @@ my($message)=@_;
 			);
 	local @AuditStored=();
 	do { smssend 0,$opt_smstest; return; } if $opt_smstest;
-	write_message("$Mail/input");
+	write_message("$Mail/input") or die;
 	audit();
 	warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
 }
-- 
1.8.3.1