program OnBeforeSavingMessage;
// *Entfernt X-Face-Header aus eingehenden Nachrichten*
// Dieser code muss in ein neu erzeugtes oder modifiziertes
// Ereignisskript OnBeforeSaving eingefügt werden.

procedure OnBeforeSavingMessage(var Message: TStringlist; 
	Servername: string; IsEmail: boolean);
var i : Integer;
begin
  i := 0;
  repeat
    if Pos('X-Face: ', Message[i]) = 1 Then
      repeat
        Message.delete(i); 
      until (Message[i][1] > ' ') or (Message[i] = '')   
    else
      i := i + 1;
  until Message[i] = '';
end;

begin
end.