RemovePGPSig

Donnerstag, den 04. Dezember 2008 um 22:27 Uhr Dietmar Vollmeier

Dieses Script entfernt eine vorhandene PGP-Signierung aus den Beiträgen.

Name und Funktion

Include	:	{$I _i_OBSavM_RemovePGPSig}
Funktion	:	RemovePGPSig (Message, IsEmail);

Einbindung

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

Program OnBeforeSavingMessage;

{$I _i_OBSavM_RemovePGPSig}

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

Begin
   If Message.Count = 0 Then Exit;

   RemovePGPSig (Message, IsEmail);

End;

Begin
End.