X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-accept;h=eeb104be09924a43a85c44e9c2f58639b610125d;hp=192ffce52589d340bf285a20a0c036fbd877b8f6;hb=4d6338a79427d97190dec21baa42aefe504ba064;hpb=dbd2c430a60390525dc17a0083867a006763c50f

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 $_);
 }