X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-accept;h=967a758b3ca66dd7edd6d2b6b427f4e46291b2d4;hp=0213a486beab89b2d27d953840baae1b0ec3e8e1;hb=634712bd739b2a7c5dd5c467e5537be4d7d08bc2;hpb=763ff17973e6df2d676694052b7f0dd9aa3c71c3 diff --git a/perlmail-accept b/perlmail-accept index 0213a48..967a758 100755 --- a/perlmail-accept +++ b/perlmail-accept @@ -314,7 +314,7 @@ sub smssend { my($ignorenewmail,$smscount,%args)=@_; - my $text=audit_sms( + my $text=PerlMail::Config::audit_sms( "subject"=>unmime($Audit->subject()), "from"=>[ Mail::Address->parse(unmime($Audit->from())) ], "body"=>substr(body_simple(),0,$MaxBodySMS*(1+0.25*$smscount)), @@ -476,7 +476,7 @@ my($message)=@_; local @AuditStored=(); do { smssend 0,$opt_smstest; return; } if $opt_smstest; write_message("$Mail/input") or die; - audit(); + PerlMail::Config::audit(); warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_); }