QuoteCorrection

Sonntag, den 18. Januar 2009 um 16:41 Uhr Dietmar Vollmeier

Dieses Script überprüft eingehende Nachrichten auf

zerstückelte Smilies
leere Quotezeilen
Leerzeichen zwischen Quotezeichen
falsche Signaturtrenner ("--")
verschobene Unterstreichungen bei ganzen Wörtern

und korrigiert diese.

Name und Funktion

Include	:	{$I _i_MULTI_QuoteCorrection}
Funktionen	:	QuoteCorrection (Message); PCorrection (Message);

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

Program OnBeforeSavingMessage;

{$I _i_MULTI_QuoteCorrection}

Procedure OnBeforeSavingMessage (
   Var   Message    : TStringlist;
   Const Servername : String;
   Const IsEmail    : Boolean
);

Begin
   If Message.Count = 0 Then Exit;

   QuoteCorrection (Message);

End;

Begin
End.