Ich schrieb:
>> ich habe in meiner Message-DB viele alte Nachrichten, für die die
>> Bezugsverkettung nicht funktioniert.
Wenn ich nichts übersehen habe, ist mit dem anhängendem Teil die Korrektur
komplett (diff gegen den letzten offiziellen Snapshot, xp4o2.pas).
Sinnvoll wäre es, bestimmte Teile zu zentralisieren, aber das überlasse
ich kompetenteren Leuten. ;)
Das Diff schicke ich als UUE, weil ich nicht weiß, ob Attachments bei T-
Online durchgehen.
Ich habe auch noch drei eigentlich kommentar-verkettete Nachrichrichten
beigefügt, an denen man das von mir geschilderte Problem gut
nachvollziehen kann.
Ich könnte mir vorstellen, dass ich nicht der Einzige bin, der an seinen
alten Nachrichten hängt. Insofern wäre es schön, wenn meine Änderungen in
den offiziellen Code einfliessen würden. Natürlich nach kompetenter
Überarbeitung. ;)
Ansonsten bin ich natürlich auch bereit, eine Testversion (auf Basis des
letzten offiziellen Snapshots) zur Verfügung zu stellen.
begin 644 diff_xp4o2_pas
M+2TM('AP-&\R+G!A<PDR,#`S+3$P+3$V(#(P.C0Q.C,X+C`P,#`P,#`P,"`K
M,#(P,`T**RLK("]C>6=D<FEV92]C+W1M<"]T<W1B<#<O1EA0,S0P+WAP-&\R
M+G!A<PDR,#`U+3`X+3$U(#(Q.C4W.C0R+C`P,#`P,#`P,"`K,#(P,`T*0$`@
M+3$L,R`K,2PV($!`#0HK>R!(2E0@,34N,[EMAIL PROTECTED],C`P-2!"[EMAIL
PROTECTED])E;F-E
M<R!D:[EMAIL PROTECTED]<F5N>F5N9&5N('T-"BM[('-P:[EMAIL PROTECTED];6UE<[EMAIL
PROTECTED]
M9F5R;F5N("`@("`@("`@("`@("`@("`@("[EMAIL PROTECTED]('[EMAIL PROTECTED]
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM('T-"B![($1I97-E<B!1=65L;'1E>'0@:7-T('5R:&5B97)R
M96-H=&QI8V@@9V5S8VAU971Z="X@("`@("`@("`@("`@("!]#0H@>R`H8RD@
M,3DY,2TQ.3DY(%!E=&5R($UA;F1R96QL82`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("[EMAIL PROTECTED]@+34U."PV("LU-C$L-R!`0`T*('9A<@T*
M("[EMAIL PROTECTED]@1FEL93L-"B`@($93:7IE.B!7;W)D.PT**R`@>G=I<F5F.B!S=')I
M;F<[("![($A*5"`Q-2XP."XR,#`U('T-"B!B96=I;@T*("`@:[EMAIL PROTECTED];W5N
M="AB971R*3TP('1H96X[#0H@("!R;65S<[EMAIL PROTECTED]@("![("=+;VUM
M96YT87)B875M(&5I;FQE<V5N+BXN)R!]#0I`0"`M-3<[EMAIL PROTECTED],2!`
M0`T*("`@("`@(&)E>CH]1V5T0F5Z=6<H:&1P7BYR968I.PT*("`@("`@(&EF
M(&)E>CP^,"!T:&5N#0H@("`@("`@("!D8D=O*&UB87-E+&)E>BD-"BT@("`@
M("!E;'-E#0HM("`@("`@("!N=6QL:60Z/[EMAIL PROTECTED]:&1P7BYR968I
M.PT**R`@("`@(&5L<[EMAIL PROTECTED]:6X-"BL@("`@("`@('[EMAIL
PROTECTED](#$U+C`X+C(P
M,#4@<W1A<[EMAIL PROTECTED]@("`@("`@>G=I<F5F(#H](&AD<%XN<F5F.PT**R`@
M("`@("`@:68@;&5F="AZ=VER968L,2D])SPG('[EMAIL PROTECTED]&5L9FER<W0H>G=I
M<F5F*3L@(`T**R`@("`@("`@:68@<FEG:'0H>G=I<F5F+#$I/2<^)R!T:&5N
M(&1E;&QA<W0H>G=I<F5F*3L-"BL@("`@("`@(&YU;&QI9#H]37-G:61);F1E
M>"AZ=VER968I.PT**R`@("`@("[EMAIL PROTECTED]("`@("`@(&5N9#L-"BL@("`@
M>R!B97HZ/4=E=$)E>G5G*&AD<%XN<F5F*3L@("`@("`@('T-"BL@("`@>R!I
M9B!B97H\/[EMAIL PROTECTED]&AE;B`@("`@("`@("`@("`@("`@('T-"BL@("`@>R`@(&1B
M1V\H;6)A<V4L8F5Z*2`@("`@("`@("`@("`@('T-"BL@("`@>R!E;'-E("`@
M("`@("`@("`@("`@("`@("`@("`@("`@('T-"BL@("`@>R`@(&YU;&QI9#H]
M37-G:61);F1E>"AH9'!>+G)E9BD[('T-"BL@("`@>R!E;F0[("`@("`@("`@
M("`@("`@("`@("`@("`@("`@('T-"BL@("`@>R!(2E0@,34N,[EMAIL PROTECTED],C`P-2!E
M;[EMAIL PROTECTED]("`@("!I;F,H;BD[#0H@("!U;G1I;"`H;CUE;6%X*2!O<B`H8F5Z
M/3`I.PT*("[EMAIL PROTECTED]&ES<&]S92AH9'[EMAIL PROTECTED]("LV-#4L-R!`0`T*
M("`@("!D870R("`@("`Z(&QO;F=I;G0[#0H@("`@(&UI("`@("`@(#H@<VAO
M<G1I;G0[#0H@("`@('9O<B`@("`@([EMAIL PROTECTED];&5A;CL-"BL)>G=I<F5F("`@
M.B!S=')I;F<[('[EMAIL PROTECTED](#$U+C`X+C(P,[EMAIL
PROTECTED](&)E9VEN#0H@("!N97<H
M:&1P*3L-"B`@(&UI.CUD8D=E=$EN9&5X*&)E>F)A<[EMAIL PROTECTED]
M("LV-3,L,3,@0$`-"B`@($)E>E-E96LZ/69A;'-E.PT*("[EMAIL PROTECTED]
M<BAH9'!>+&AD<RQT<G5E*3L-"B`@(&EF("AH9',^,[EMAIL PROTECTED]("AH9'!>+G)E
M9CP^)R<I('[EMAIL PROTECTED]:6X-"BT@("`@<F5F.CU-<V=I9$EN9&5X*&AD<%XN
M<F5F*3L-"BL@("`@>R!(2E0@,34N,[EMAIL PROTECTED],C`P-2!S=&%R="!]#0HK("`@('IW
M:7)E9B`Z/2!H9'!>+G)E9CL-"BL@("`@:68@;&5F="AZ=VER968L,2D])SPG
M("!T:&5N(&1E;&9I<G-T*'IW:7)E9BD[("`-"BL@("`@:68@<FEG:'0H>G=I
M<F5F+#$I/2<^)R!T:&5N(&1E;&QA<W0H>G=I<F5F*3L-"BL@("`@<F5F.CU-
M<V=I9$EN9&5X*'IW:7)E9BD[#0HK("`@('L@<F5F.CU-<V=I9$EN9&5X*&AD
M<%XN<[EMAIL PROTECTED]@("![($A*5"`Q-2XP."XR,#`U(&5N9"!]#0H@("`@
M(&1B4V5E:RAB97IB87-E+&)E:5)E9BQD8DQO;F=3='(H<F5F*2D[#0H@("`@
K(&EF(&1B1F]U;[EMAIL PROTECTED]&AE;B!B96=I;@T*("`@("`@('9O<CH]=')U93L-"@``
`
end
begin 644 BEZ_SMPL.ZER
M14U0.B!O<&5N>'`Q-BUL:7-T0&MR=65M96PN;W)G#0I!0E,Z(&HN;65R:V5L
M0'1B>"YB97)L:6YE="YD92`H2F]A8VAI;2!-97)K96PI#0I704(Z(&4M<&]P
M0&QO8V%L:&]S=`T*0D54.B!;;W!E;GAP,38M;&[EMAIL PROTECTED];VYT96YT+51Y
M<&[EMAIL PROTECTED]('-I;F=L92UP87)T+4U)344-"E)/5#H@;&]C86QH;W-T(69M<FPQ
M,2YS=6PN="UO;FQI;F4N8V]M(6MB;VMS+FMR=65M96PN;W)G(6%B<F%X87,N
M8F5R;&EN970N9&4A;&]C86QH;W-T(6%B<F%X87,N8F5R;&EN970N9&4A;7AN
M>"YB97)L:6YE='HN9&4A9V5N:75S+F)E<FQI;F5T+F1E*')E86QL>2%G96YI
M=7,N8F5R;&EN970N9&4A=&)X+F)E<FQI;F5T+F1E#0I-240Z(#A,8G%E;D\D
M8G1"0'1B>"UJ+FUE<FME;"[EMAIL PROTECTED];&EN970N9&4-"D5$03H@,C`P,C`S
M,C4R,S(S,#!7*S`P#0I,14XZ([EMAIL PROTECTED],`T*06YT=V]R="UA;CH@;W!E;GAP,38M
M;&ES=$!K<G5E;65L+F]R9PT*36%I;&5R.B!#<F]S<U!O:6YT(%M/<&5N6%`O
M,39=('8S+C0P(%)#,R!`(#(S,#,P#0I/4D<Z($)"4R!A;2!286YD92!D97(@
M5F5R;G5N9G0@:'1T<#HO+W=W=RYC:&%T;F]I<BYD90T*6"U'871E=V%Y.B!:
M0T].3D5#5"[EMAIL PROTECTED];&EN970N9&[EMAIL PROTECTED]('9O;2`R-2XP.2XR
M,#`P70T*52U296-E:[EMAIL PROTECTED])O;2!F;7)L,3$N<W5L+G0M;VYL:6YE+F-O
M;2!B>2!L;V-A;&AO<[EMAIL PROTECTED]<&]P*2!W:71H(%!/4#,-"E4M4F5T=7)N+5!A
M=&@Z(#QM>4!O<&5N>'`Q-BYD93X-"E4M4F5C96EV960Z(&9R;VT@:V)O:W,N
M:W)U96UE;"YO<F<@*#4R,#`R-C,T,3$Q,"TP,#`Q0%LR,3<N.#`N,3(P+C$X
M-%TI(&)Y(&9M<FPQ,2YS=6PN="UO;FQI;F4N8V]M('=I=&@@<VUT<"!I9"`Q
M-G!E64TM,&[EMAIL PROTECTED]'5E+"`R-B!-87(@,C`P,B`P,3HQ,3HP-B`K,#$P
M,`T*52U296-E:[EMAIL PROTECTED])O;2!A8G)A>&%S+F)E<FQI;F5T+F1E("AA8G)A
M>&%S+F)E<FQI;F5T+F1E(%LV,BXX+C([EMAIL PROTECTED]@(&MB;VMS+FMR=65M
M96PN;W)G("[EMAIL PROTECTED],C,I(&9O<B`\;W!E;GAP,38M;&ES=$!K<G5E
M;65L+F]R9SX[(#(V($UA<B`R,#`R(#`Q.C`Q.C`T#0I5+5)E8V5I=F5D.B!F
M<F]M(&QO8V%L:&]S="`H;&]C86QH;W-T(%LQ,C<N,"XP+C%=*2!B>2!A8G)A
M>&%S+F)E<FQI;F5T+F1E("A0;W-T9FEX(&]N([EMAIL PROTECTED]&EN=7@@-RXR("AI
M,[EMAIL PROTECTED]@=VET:"!%4TU44"!I9"`Y-4,T.$4U0C,P(&9O<B`\;W!E;GAP,38M
M;&ES=$!K<G5E;65L+F]R9SX[(%1U92P@,[EMAIL PROTECTED](#(P,#(@,#$Z,[EMAIL
PROTECTED],#@@
M*S`Q,[EMAIL PROTECTED]"D-"E4M4F5C96EV960Z(&9R;VT@;7AN>"YB97)L:6YE='HN
M9&[EMAIL PROTECTED]&-R;W=L>2YB97)L:6YE="YD92!;-C(N."XR,#8N-ETI(&)Y(&%B<F%X
M87,N8F5R;&EN970N9&[EMAIL PROTECTED]<W1F:7@@;[EMAIL PROTECTED],:6YU>"`W+C(@*&DS
M.#8I*2!W:71H($533510(&ED(#)#-#4V135",[EMAIL PROTECTED](#QO<&5N>'`Q-BUL
M:7-T0&MR=65M96PN;W)G/[EMAIL PROTECTED]'5E+"`R-B!-87(@,C`P,B`P,3HP-SHU.2`K
M,#$P,"`H3454*0T*52U296-E:[EMAIL PROTECTED])O;2!G96YI=7,N8F5R;&EN970N
M9&4H<F5A;&QY(%LV,BXX+C(P-BXR-#1=*2!B>2!M>&YX+F)E<FQI;F5T>BYD
M92!V:6$@<VUT<&[EMAIL PROTECTED]:"!S;71P(&ED(#QM,39P94Y0+3`P,3E48T-`;7AN
M>"YB97)L:6YE='HN9&4^(&9O<B`\;W!E;GAP,38M;&ES=$!K<G5E;65L+F]R
M9SX[(%1U92P@,[EMAIL PROTECTED](#(P,#(@,#`Z-3DZ-#<@*S`Q,[EMAIL
PROTECTED]"[EMAIL PROTECTED]
M86EL+3,N,BXP+C$Q,2`R,#`P+49E8BTQ-R`C,RD-"E4M4F5C96EV960Z(&9R
M;[EMAIL PROTECTED]&)X+F)E<FQI;F5T+F1E(&)Y(&=E;FEU<RYB97)L:6YE="YD92!V:6$@
M<FUA:[EMAIL PROTECTED]:"!U=6-P:60@/&TQ-G!E378M,[EMAIL PROTECTED],N8F5R
M;&EN970N9&4^9F]R(&]P96YX<#$V+6QI<W1`:W)U96UE;"YO<F<[(%1U92P@
M,[EMAIL PROTECTED](#(P,#(@,#`Z-3DZ,3<@*S`Q,[EMAIL PROTECTED]"DH4VUA:6PM,RXR(#$Y
M.38M2G5L+30@(S$I#0I5+5)E8V5I=F5D.B!B>[EMAIL PROTECTED];&EN970N9&4@
M*$1554-0('9O;2`R-2XP.2XR,#`P*2!W:71H(%I#;VYN96-T.R`R-2!-87(@
M,C`P,B`R,SHR,SHP,"!'350-"E4M34E-12U697)S:6]N.B`Q+C`-"E4M0V]N
M=&5N="U4>7!E.B!T97AT+W!L86EN.R!C:&%R<V5T/6ES;RTX.#4Y+3$-"E4M
M0V]N=&5N="U4<F%N<V9E<BU%;F-O9&[EMAIL PROTECTED]&)I=`T*6"U6:7)U<RU38V%N
M;F5D.B!B>2!!8G)A>&%S($)E<FQI3F5T#0I8+5-E;F1E<[EMAIL PROTECTED](P,#(V,S0Q
M,3$P+3`P,#%`="UD:6%L:6XN;[EMAIL PROTECTED]"@T*2&%L;&\L
M#0H-"F)E:2!S:6YG;&4O<&%R="U-24U%(&1I92!M:[EMAIL PROTECTED]("!E<G-T96QL
M="!W=7)[EMAIL PROTECTED]&5B96YS;R!N872!<[EMAIL
PROTECTED]"F%U8V@@8F5I('-I;F=L92UP
M87)T+4U)344M3F%C:')I8VAT96XL(&1I92!A=7,@9&5M($YE='H@:V]M;65N
M*0T*8FQE:6)T(&)E:[EMAIL PROTECTED]&EE<F5N(&YA8V@@6D-O;[EMAIL PROTECTED]&5R
M(%4M0V]N=&5N="U4>7!E.B!Q=6]T960M#0IP<FEN=&%B;&[EMAIL PROTECTED]')I;B!B;&5I
M8G0N($1E<[EMAIL PROTECTED](&IE;F%C:&1E;2!R:6-H=&EG97)W96ES
M90T*-T)I="!O9&5R(#A":70L([EMAIL PROTECTED]&[EMAIL
PROTECTED]&5R(%556B!J82!D:64@<7`M
M3F%C:')I8VAT(&EM(&)O9'[EMAIL PROTECTED];VYV97)T:65R="!H870N(`T*#0I$87,@
M:7-T(&)E:[EMAIL PROTECTED]&5N(&YE=65N(#,N,C`M('5N9"`S+C0P+5556B!S;R!U
M;[EMAIL PROTECTED](&1E;2!L875F96YD90T*=F]N(%A0+S(@=6YD(%A0:F<@;FEC:"!A
M;&QZ=2!A;'0L(&%L<[EMAIL PROTECTED]:&5N<R!0871C:&QE=F5L(#(N#0H-"D=R=>$L
M#0I*;V%C:&EM#0HM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"DUA
M:6QI;F=L:7-T92!/<&5N6%`O,38@("`@("[EMAIL PROTECTED]($%B;VYN96YT96XZ
M(&]P96YX<#$V+6QI<W1`:W)U96UE;"YO<F<-"E=E8CH@:'1T<#HO+W=W=RYO
M<&5N>'[EMAIL PROTECTED];#H@<W5P<&]R=$!O<&5N>'`Q-BYD90T*1E10
[EMAIL PROTECTED]<#$V+F1E+R`M($YE=W-G<F]U<[EMAIL PROTECTED])O<W-P
M;VEN="YO<&5N>'`Q-BYP=6(N86QL9V5M96EN#0I%35`Z(&]P96YX<#$V+6QI
M<W1`:W)U96UE;"YO<F<-"D%"4SH@;7E`;W!E;GAP,38N9&[EMAIL PROTECTED]@
M2&5Y9&5K86UP*0T*5T%".B!E+7!O<$!L;V-A;&AO<W0-"D)[EMAIL PROTECTED](%MO
M<&5N>'`Q-BUL:7-T72!,[EMAIL PROTECTED]($530R!D97(@=C,N-#`-"E)/5#H@
M;&]C86QH;W-T(69M<FPQ,2YS=6PN="UO;FQI;F4N8V]M(6MB;VMS+FMR=65M
M96PN;W)G(6UO=71N9S`N<V-H;'5N9"YD92%;,C$R+C(R-RXQ,C8N,38P72%M
M<F5L87EN9S`N:W5N9&5N<V5R=F5R+F1E(5LV,BXR,C<N,34T+C$Y-5TA;W!E
M;GAP,38N9&4-"DU)[EMAIL PROTECTED]"1P=T)`;7DN;W!E;GAP,38N9&4-"D5$
M03H@,C`P,C`S,CDQ-34Y,#!7*S`Q#0I,14XZ(#<X-`T*06YT=V]R="UA;CH@
M;W!E;GAP,38M;&ES=$!K<G5E;65L+F]R9PT*0D5:.B`\.$QB<69F.'!B=$)`
M=&)X+6HN;65R:V5L+G1B>"YB97)L:6YE="YD93X-"DUA:6QE<[EMAIL PROTECTED])O<W-0
M;VEN="]!9V5N="!;3W!E;[EMAIL PROTECTED]($)33510#0I/4D<Z($]P96Y84"\Q
[EMAIL PROTECTED]:[EMAIL PROTECTED])O;2!F;7)L,3$N<W5L+G0M;VYL:6YE+F-O;2!B
M>2!L;V-A;&AO<[EMAIL PROTECTED]<&]P*2!W:71H(%!/4#,-"E4M4F5T=7)N+5!A=&@Z
M(#QM>4!O<&5N>'`Q-BYD93X-"E4M4F5C96EV960Z(&9R;VT@:V)O:W,N:W)U
M96UE;"YO<F<@*#4R,#`R-C,T,3$Q,"TP,#`Q0%LR,3<N.#`N,3(P+C$W-5TI
M(&)Y(&9M<FPQ,2YS=6PN="UO;FQI;F4N8V]M('=I=&@@<VUT<"!I9"`Q-G%Z
[EMAIL PROTECTED],[EMAIL PROTECTED])I+"`R.2!-87(@,C`P,B`Q-SHR.#HS-2`K,#$P,`T*
M52U296-E:[EMAIL PROTECTED])O;2!M;W5T;F<P+G-C:&QU;F0N9&[EMAIL
PROTECTED]&UO=71N9S`N
M:W5N9&5N<V5R=F5R+F1E(%LR,3(N,C(W+C$R-BXQ-S!=*2!B>2!K8F]K<RYK
M<G5E;65L+F]R9R`H5V5A<V5L('8Q+C(S*2!F;W(@/&]P96YX<#$V+6QI<W1`
M:W)U96UE;"YO<F<^.R`R.2!-87(@,C`P,B`Q-SHQ.#HS-`T*52U296-E:79E
[EMAIL PROTECTED])O;2!;,C$R+C(R-RXQ,C8N,38P72`H:&5L;SUM<F5L87EN9S`N:W5N
M9&5N<V5R=F5R+F1E*2!B>2!M;W5T;F<P+G-C:&QU;F0N9&[EMAIL PROTECTED]:"!E<VUT
M<"`H17AI;2`S+C(R(",R*2!I9"`Q-G%Z,[EMAIL PROTECTED],#`P-$I++3`P(&9O<B!O<&5N
M>'`Q-BUL:7-T0&MR=65M96PN;W)G.R!&<FDL(#(Y($UA<B`R,#`R(#$W.C$W
M.C$S("LP,3`P#0I5+5)E8V5I=F5D.B!F<F]M(%LV,BXR,C<N,34T+C$Y-5T@
M*&AE;&\];64I(&)Y(&UR96QA>6YG,"YK=6YD96YS97)V97(N9&[EMAIL PROTECTED]:"!A
M<VUT<"`H17AI;2`S+C(R(",R*2!I9"`Q-G%Z,[EMAIL PROTECTED],#`P,#=V+3`P(&9O<B!O
M<&5N>'`Q-BUL:7-T0&MR=65M96PN;W)G.R!&<FDL(#(Y($UA<B`R,#`R(#$W
M.C$W.C$S("LP,3`P#0I5+5)E8V5I=F5D.B!B>2!O<&5N>'`Q-BYD92`H0W)O
M<W-0;VEN="!;3W!E;EA0+S$V72!V,RXT,"!20S,@0"`R-S`S,#(Q.34U(%(O
[EMAIL PROTECTED](#(Y($UA<B`R,#`R(#$W.C$W.C`S("LP,3`P#0I8+4)3;71P+4-L
M:[EMAIL PROTECTED]"]52T%7('8R+C<U9R`H,"XP+C`N,"D[("AC*2!B>2`G
M=W=W+F=O:&5L+F1E)PT*52U-24U%+59E<G-I;VXZ(#$N,`T*52U#;VYT96YT
M+51Y<&4Z('1E>'0O<&QA:6X[(&-H87)S970]25-/[EMAIL PROTECTED],0T*52U#;VYT
M96YT+51R86YS9F5R+45N8V]D:6YG.B!Q=6]T960M<')I;G1A8FQE#0I8+5-E
M;F1E<[EMAIL PROTECTED](P,#(V,S0Q,3$P+3`P,#%`="UD:6%L:6XN;F5T#0I8+5A0+4Y4
[EMAIL PROTECTED]"@T*2F]A8VAI;2!-97)K96P@/&HN;65R:V5L0'1B>"YB97)L:6YE
M="[EMAIL PROTECTED])O=&4@;VX@,C4N,#,N,#(Z#0H-"[EMAIL PROTECTED];2!,[EMAIL
PROTECTED]
M($530R!I;2!+;W!F(&%U9F=E9F%L;&5N+"!D8>[EMAIL PROTECTED],@:[EMAIL
PROTECTED]&5R#0H^($YA
M8VAR:6-H=&[EMAIL PROTECTED])E<G-I8VAT(&5I;[EMAIL
PROTECTED];&QE(&UE:'(@;F%C:"!L:6YK
M<PT*/B!U;G1E<FQE9W0@:7-T+"!A;'-O("!%4T,N($)E:2!E<F9O;&=T97(@
M4W5C:&4@;6ET($XO4R]3(')E:6-H=`T*/B`@("`@("`@("`@("`@("`@("`@
M('Y^?GX-"[EMAIL PROTECTED]&%S(&)I<R!Z=6T@/[EMAIL PROTECTED]('-C:&]N(&5I;[EMAIL
PROTECTED]>F4@
M5V5I;&4@<V\@:[EMAIL PROTECTED]&5R(#,N-#`N#0H-"DMA;FX@:6-H(&YI8VAT(&YA8VAV
M;VQL>FEE:&5N+"!H:65R('-I96AT(&%L;&5S(&MO<G)E:[EMAIL PROTECTED]@2V%N
M;G-T([EMAIL PROTECTED]&4@)[EMAIL PROTECTED]:7!T97,@0FET;6%P('-C:&EC:V5N
M+"!D86UI="!I8V@@<[EMAIL PROTECTED]($1U(&UE:6YS=#\-"@T*#0H@("`@("`@
M($UI8VAA96P-"BTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+0T*36%I
M;&EN9VQI<W1E($]P96Y84"\Q-B`@("`@("`M(&9U97(@06)O;FYE;G1E;CH@
M;W!E;GAP,38M;&ES=$!K<G5E;65L+F]R9PT*5V5B.B!H='1P.B\O=W=W+F]P
M96YX<#$V+F1E+R`M(&5-86EL.B!S=7!P;W)T0&]P96YX<#$V+F1E#0I&5%`Z
M("!F='`Z+R]F='`N;W!E;GAP,38N9&4O("[EMAIL PROTECTED]<V=R;W5P.B!C<F]S<W!O
M:6YT+F]P96YX<#$V+G!U8BYA;&QG96UE:6X-"D5-4#H@;W!E;GAP,38M;&ES
M=$!K<G5E;65L+F]R9PT*04)3.B!J+FUE<FME;[EMAIL PROTECTED];&EN970N9&4@
M*$IO86-H:[EMAIL PROTECTED]:V5L*0T*5T%".B!E+7!O<$!L;V-A;&AO<W0-"D)%5#H@
M4F4Z(%MO<&5N>'`Q-BUL:7-T72!5+4-O;G1E;G0M5'EP92!B96D@<VEN9VQE
M+7!A<G0M34E-10T*4D]4.B!L;V-A;&AO<W0A9FUR;#$Q+G-U;"YT+6]N;&EN
M92YC;VTA:V)O:W,N:W)U96UE;"YO<F<A86)R87AA<RYB97)L:6YE="YD92%L
M;V-A;&AO<W0A86)R87AA<RYB97)L:6YE="YD92%M>&YX+F)E<FQI;F5T>BYD
M92%G96YI=7,N8F5R;&EN970N9&4H<F5A;&QY(6=E;FEU<RYB97)L:6YE="YD
[EMAIL PROTECTED];&EN970N9&4-"DU)[EMAIL PROTECTED]:=TMB=$)`=&)X+6HN;65R
M:V5L+G1B>"YB97)L:6YE="YD90T*141!.B`R,#`R,#,S,#$P-3<P,%<K,#`-
M"[EMAIL PROTECTED];G1W;W)T+6%N.B!O<&5N>'`Q-BUL:7-T0&MR=65M96PN
M;W)G#0I"15HZ(#PX3&Q/=6-G2W!W0D!M>2YO<&5N>'`Q-BYD93X-"DUA:6QE
M<[EMAIL PROTECTED])O<W-0;VEN="!;3W!E;EA0+S$V72!V,RXT,"!20S,@0"`R-3`S,`T*
M3U)'.B!"0E,@[EMAIL PROTECTED]&[EMAIL
PROTECTED]&5R(%9E<FYU;F9T(&AT='`Z+R]W=W<N8VAA
M=&YO:7(N9&4-"[EMAIL PROTECTED]>[EMAIL PROTECTED]/[EMAIL
PROTECTED]@=&)X+F)E<FQI;F5T
M+F1E(%M$555#4"!V;VT@,C4N,#DN,C`P,%T-"E4M4F5C96EV960Z(&9R;VT@
M9FUR;#$Q+G-U;"YT+6]N;&EN92YC;[EMAIL PROTECTED]@;&]C86QH;W-T("A%+7!O<"D@
M=VET:"!03U`S#0I5+5)E='5R;BU0871H.B`\;7E`;W!E;GAP,38N9&4^#0I5
M+5)E8V5I=F5D.B!F<F]M(&MB;VMS+FMR=65M96PN;W)G("@U,C`P,C8S-#$Q
M,3`M,#`P,4!;-C(N,C(U+C(Q.2XQ-SE=*2!B>2!F;7)L,3$N<W5L+G0M;VYL
M:6YE+F-O;2!W:71H('-M='`@:60@,39R2&AL+3%/:4)"9T,[(%-A="P@,S`@
M36%R(#(P,#(@,3,Z,3$Z,S,@*S`Q,#`-"E4M4F5C96EV960Z(&9R;[EMAIL PROTECTED])R
M87AA<RYB97)L:6YE="YD92`H86)R87AA<RYB97)L:6YE="YD92!;-C(N."XR
M,#8N.%TI(&)Y("!K8F]K<RYK<G5E;65L+F]R9R`H5V5A<V5L('8Q+C(S*2!F
M;W(@/&]P96YX<#$V+6QI<W1`:W)U96UE;"YO<F<^.R`S,"!-87(@,C`P,B`Q
M,SHP,3HS,0T*52U296-E:[EMAIL PROTECTED])O;2!L;V-A;&AO<[EMAIL
PROTECTED]&QO8V%L:&]S
M="!;,3(W+C`N,"[EMAIL PROTECTED]@86)R87AA<RYB97)L:6YE="YD92`H4&]S=&9I
M>"!O;B!3=5-%($QI;G5X(#<N,B`H:3,X-BDI('=I=&@@15--5%`@:60@,#(T
M03E%-4(Q-2!F;W(@/&]P96YX<#$V+6QI<W1`:W)U96UE;"YO<F<^.R!3870L
M(#,P($UA<B`R,#`R(#$S.C$P.C(U("LP,3`P("A-150I#0I5+5)E8V5I=F5D
M.B!F<F]M(&UX;[EMAIL PROTECTED];&EN971Z+F1E("AC<F]W;'DN8F5R;&EN970N9&4@
[EMAIL PROTECTED],C`V+C9=*2!B>2!A8G)A>&%S+F)E<FQI;F5T+F1E("A0;W-T9FEX
M(&]N([EMAIL PROTECTED]&EN=7@@-RXR("AI,[EMAIL
PROTECTED]@=VET:"!%4TU44"!I9"!$14%&
M1D4U048V(&9O<B`\;W!E;GAP,38M;&ES=$!K<G5E;65L+F]R9SX[(%-A="P@
M,[EMAIL PROTECTED](#(P,#(@,3,Z,3`Z,[EMAIL PROTECTED],[EMAIL
PROTECTED]"D-"E4M4F5C96EV960Z
M(&9R;[EMAIL PROTECTED]:75S+F)E<FQI;F5T+F1E*')E86QL>2!;-C(N."XR,#8N,C0T
[EMAIL PROTECTED]@;7AN>"YB97)L:6YE='HN9&[EMAIL
PROTECTED]('-M='!D('=I=&@@<VUT<"!I
M9"`\;3$V<DA8,2TP,#$Y5&9#0&UX;[EMAIL PROTECTED];&EN971Z+F1E/B!F;W(@/&]P
M96YX<#$V+6QI<W1`:W)U96UE;"YO<F<^.R!3870L(#,P($UA<B`R,#`R(#$S
M.C`P.C(W("LP,3`P("A#150I("A3;6%I;"TS+C(N,"XQ,3$@,C`P,"U&96(M
M,3<@(S,I#0I5+5)E8V5I=F5D.B!F<F]M('1B>"YB97)L:6YE="YD92!B>2!G
M96YI=7,N8F5R;&EN970N9&[EMAIL PROTECTED](')M86EL('=I=&@@=75C<&ED(#QM,39R
M2%=H+3`P,%)7=4-`9V5N:75S+F)E<FQI;F5T+F1E/F9O<B!O<&5N>'`Q-BUL
M:7-T0&MR=65M96PN;W)G.R!3870L(#,P($UA<B`R,#`R(#$S.C`P.C`W("LP
M,3`P("A#150I*%-M86EL+3,N,B`Q.3DV+4IU;"TT(",Q*0T*52U296-E:79E
[EMAIL PROTECTED]@=&)X+F)E<FQI;F5T+F1E("A$555#4"!V;VT@,C4N,#DN,C`P,"D@
M=VET:"!:0V]N;F5C=#L@,[EMAIL PROTECTED](#(P,#(@,3`Z-3<Z,[EMAIL PROTECTED])
M344M5F5R<VEO;CH@,2XP#0I5+4-O;G1E;G0M5'[EMAIL PROTECTED]&5X="]P;&%I;CL@
M8VAA<G-E=#UI<[EMAIL PROTECTED];G1E;G0M5')A;G-F97(M16YC;V1I
M;F<Z(#AB:70-"[EMAIL PROTECTED],M4V-A;[EMAIL PROTECTED]@06)R87AA<R!"97)L:4YE
M=`T*6"U396YD97(Z(#4R,#`R-C,T,3$Q,"TP,#`Q0'0M9&EA;&EN+FYE=`T*
M6"U84"U.5%`Z(#0P#0H-"DAA;&QO($UI8VAA96PL#0H-"[EMAIL PROTECTED]&%S(&ML:6YG
M="!S;[EMAIL PROTECTED]('-E:2!D87,@9G*!:&5R(&YI8VAT('-O(&=E=V5S96X_("`-
M"@T*5V%R($E-3R!S8VAO;B!I;6UE<B!S;RX-"@[EMAIL PROTECTED](%\I
M;V%C:&EM#0HM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"DUA:6QI
M;F=L:7-T92!/<&5N6%`O,38@("`@("[EMAIL PROTECTED]($%B;VYN96YT96XZ(&]P
M96YX<#$V+6QI<W1`:W)U96UE;"YO<F<-"E=E8CH@:'1T<#HO+W=W=RYO<&5N
M>'[EMAIL PROTECTED];#H@<W5P<&]R=$!O<&5N>'`Q-BYD90T*1E10.B`@
M9G1P.B\O9G1P+F]P96YX<#$V+F1E+R`M($YE=W-G<F]U<[EMAIL PROTECTED])O<W-P;VEN
:="YO<&5N>'`Q-BYP=6(N86QL9V5M96EN#0H`
`
end
>> [xp1o.pas]
>> <-------------------------------------------------------------->
>> function GetBezug(var ref:string):longint;
>> var pos : longint;
>> var zwiref : string; { HJT 14.08.2005 }
>> begin
>> { HJT 14.08.2005 start }
>> zwiref := ref;
>> if left(zwiref,1)='<' then delfirst(zwiref);
>> if right(zwiref,1)='>' then dellast(zwiref);
>> { dbSeek(bezbase,beiMsgid,dbLongStr(MsgidIndex(ref))); }
>> dbSeek(bezbase,beiMsgid,dbLongStr(MsgidIndex(zwiref)));
>> { HJT 14.08.2005 end }
> ...
>> end;
>> <-------------------------------------------------------------->
> Obige Änderung in Kombination mit:
> [xp1.o.pas]
> <----------------------------------------------------------->
> procedure AddBezug(var hd:header; dateadd:byte);
> var c1,c2 : longint;
> satz : longint;
> datum : longint;
> empfnr: byte;
> zwiref: string; {HJT 14.08.2005 }
> begin
> if ntKomkette(hd.netztyp) and (hd.msgid<>'') then begin
> c1:=MsgidIndex(hd.msgid);
> { HJT 14.08.2005 start }
> if hd.ref='' then c2:=0
> else begin
> zwiref := hd.ref;
> if left(zwiref,1)='<' then delfirst(zwiref);
> if right(zwiref,1)='>' then dellast(zwiref);
> if zwiref = '' then c2:=0
> else c2:=MsgidIndex(zwiref);
> end;
> { if hd.ref='' then c2:=0 }
> { else c2:=MsgidIndex(hd.ref); }
> { HJT 14.08.2005 end }
> dbAppend(bezbase); { s. auch XP3O.Bezugsverkettung }
> satz:=dbRecno(mbase);
> dbWriteN(bezbase,bezb_msgpos,satz);
> dbWriteN(bezbase,bezb_msgid,c1);
> dbWriteN(bezbase,bezb_ref,c2);
> ...
> <----------------------------------------------------------->
Gruss
Hans-Juergen
------------------------------------------------------------------------
FreeXP Entwickler-Mailingliste
Dev-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/dev-list
