Thomas Barghahn schrieb:
> *Wolfgang Bauer* meinte:
>> Thomas Barghahn schrieb:
>> So ist hier die Reihenfolge.
>> {$I Dialog_Functions.ds}
>> {$I _i_OBSendM_UTF7_To_UTF8_Functions.ds}
>> {$I _i_OBSendM_Del_Quote_Marks_in_CTHeader.ds}
>> {$I _i_OBSendM_Remove_Headers.ds}
>> {$I _i_OBSendM_Folding_X_FaceHeader.ds}
>> {$I _i_OBSendM_Change_Attribution_Lines.ds}
>> {$I _i_OBSendM_UTF7_to_UTF8_Converter.ds}
>> {$I _i_OBSendM_AddFaceHeader.ds}
>> {$I _i_OBSendM_NoReflectorsInTestGroups.ds}
>> {$I _i_OBSendM_XPost_and_FUp2_Information.ds}
>> {$I _i_OBSendM_Boxquote.ds}
>> {$I _i_OBSendM_do_FootnoteNew.ds}
>
> Nein, *das ist sie nicht*! Das sind nur die eingebundenen Include-Files.
> Diese Reihenfolge ist bis auf "Dialog_Functions" am Anfang völlig wurscht!
>
Und die Aufrufe.
Function OnBeforeSendingMessage(var Message:TStringlist;Servername:string;IsEmail:boolean):boolean;
var Error_Func : String;
Begin
Result := True;
Error_Func := '';
Result := Remove_Headers (Result, Message, IsEmail, Error_Func);
Result := Del_Quote_Marks_in_CTH (Result, Message, IsEmail, Error_Func);
Result := Folding_X_FaceHeader (Result, Message, Error_Func);
Result := Change_Attribution_Lines ( Result, Message, IsEmail, Error_Func);
Result := Convert_UTF7_to_UTF8 (Result, Message, Error_Func);
Result := AddFaceHeader(Result, Message, Error_Func);
Result := Add_KeywordsHeaderInTestGroups(Result, Message, IsEmail, Error_Func);
Result := XPost_and_FUp2_Information (Result, Message, IsEmail, Error_Func);
Result := boxquote ( Result, Message, Error_Func );
Result := doFootNoteNew ( Result, Message, Error_Func );
End;
Begin
End.