[twsocket] TSmtpCli and bad spam score

[Fabrice Vendé]

 Hello,

I have found something which give a very bad spam score in 
OverbyteIcsSmtpProt.pas.
Tested with SpamAssassin for example in all version of ICS ans Delphi.

I have found a solution in OverbyteIcsSmtpPro.pas :

Change :

procedure TCustomSmtpClient.Data;
...
          if FHdrPriority < smtpPriorityNormal then begin
                FHdrLines.Add('Priority: urgent');
                FHdrLines.Add('X-MSMail-Priority: High');
            end
            else if FHdrPriority = smtpPriorityNormal then begin
                FHdrLines.Add('Priority: Normal');
                FHdrLines.Add('X-MSMail-Priority: Normal');
            end
            else begin
                FHdrLines.Add('Priority: non-urgent');
                FHdrLines.Add('X-MSMail-Priority: Low');
            end;
...


to :
procedure TCustomSmtpClient.Data;
...
   {       if FHdrPriority < smtpPriorityNormal then begin
                FHdrLines.Add('Priority: urgent');
                FHdrLines.Add('X-MSMail-Priority: High');
            end
            else if FHdrPriority = smtpPriorityNormal then begin
                FHdrLines.Add('Priority: Normal');
                FHdrLines.Add('X-MSMail-Priority: Normal');
            end
            else begin
                FHdrLines.Add('Priority: non-urgent');
                FHdrLines.Add('X-MSMail-Priority: Low');
            end; }
...

So only put it in comment. These lines seems to be only for "Microsoft 
client header" but it increase bad SPAM score.


Best regards,

-
Fabrice



--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be