[BUGREPORT] _include_Foldingreferences

31/10/2008 - 09:53 von Hermann Hippen | Report spam
Moin Moin :-),

Wie an einem Posting von Karl-Heinz in de.test
<311008.005230.dt.920.41.dlg@kh-rademacher.de> zu sehen ist, ist ein Bug im
Script. Das Script geht davon aus das sich zwischen zwei References Header
Eintràgen nur ein ' ' befindet. Leider ist das nicht immer so, es können
auch mal 2 oder mehrere ' ' dazwischen sein.

Ich hatte mir das Originalscript vor einiger Zeit auch mal angesehen, etwas
veràndert und auch diesen Bug behoben.

Wer das Script benutzen will kann sich das unten per C&P holen. Wer
Dietmars Script benutzt muss warten bis Dietmar den Bug in seinem Script
behoben hat.


8<--[ Code ]->8
// Autor : Korbinian Abenthum
// Datum : 2005/06/12
//
Const
FRH_REFERENCES_HEADER = 'References: ';
FRH_MAXINT = 2147483647;

Function FoldReferencesHeader(var Message: TStringlist; IsEmail: Boolean):Boolean;
Var i, index : Integer;
References : String;
Begin
Result := True;
If IsEmail Then Exit;
With Message do
Begin
For i := 0 to Count-1 do
Begin
If AnsiPos(FRH_REFERENCES_HEADER, Strings[i])=1 Then
Begin
References := Copy(Strings[i], Length(FRH_REFERENCES_HEADER)+1, FRH_MAXINT);
index := AnsiPos(' <', References);
If (index < 1) Then Break;
Strings[i] := Copy(Strings[i], 1, index+Length(FRH_REFERENCES_HEADER)-1);
References := Copy(References, index+1, FRH_MAXINT)+' ';
While (References<>'') do
Begin
index := AnsiPos(' ', References);
i := i + 1;
Insert(i, Chr(9) + Copy(References, 1, index-1));
References := Copy( References, index+1, FRH_MAXINT);
End;
Break;
End;
If Strings[i] ='' Then Break;
End;
End;
End;
8<-->8

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Harald Maedl
31/10/2008 - 10:11 | Warnen spam
Hallo Hermann,

Hermann Hippen schrieb:

Wie an einem Posting von Karl-Heinz in de.test
zu sehen ist, ist ein Bug im
Script. Das Script geht davon aus das sich zwischen zwei References Header
Eintràgen nur ein ' ' befindet. Leider ist das nicht immer so, es können
auch mal 2 oder mehrere ' ' dazwischen sein.



Kommt daher neuerdings stàndig die Fehlermeldung "Referenceheader too
long"?

Cu,
Harald
Monologe, die sich immer wieder störend unterbrechen, nennt man auch
Diskussion.

Ähnliche fragen