+sa-learn(1) support.

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 9416b0f..3b23b0c 100644 (file)
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -436,7 +436,10 @@ sub audit
 
        store "=errm","bell"         if $isFROM_MAILER && !did();
 
-       store "==","sms"             if !did;
+       if (!did) {
+               store "==","sms";
+               spamassassin "sa-learn --ham";
+               }
 }
 
 sub audit_sms_address