Re: SigTest - no reply - ignore

Hermann Hippen wrote:

Hermann, das gewünschte Supersede mit dem Script das die X-Header
löschen soll. Im KN HeaderII ist das Löschen von X-PGP-CHECK, X-PGP-Hash
und X-PGP-Sig ausgeschaltet.

Supersede mit den beiden neuen Scripten. In KN selbst ist das Löschen
der Header ausgeschaltet. Auch in der header.def keine diesbezüglichen
Einträge.

http://www.wolfgang-bauer.at/screenshot/headerII.png

X-KorrNews: %Version%

Set raw Header
X-Face:
0|};s!bK^MT1~iG7<p/i/Q0,_"sRO!Lgcb]2}R.&ya"3LC}@=B\$_5CM%m`b=mMK8Dn`nHT-P
Z}]y],(ne/!a;fUt*9Q/Os@H3E.G52$[]%wKGz%uM>5h$]v0'9HG0De}YNdp)osF>h%TzpN4n,fslfM&
Jf*\?6c9My3A+DEMc~Vn
end

If Header(X-Newsreader) contains "Microsoft Windows Mail"
Set Header Tool: Quotefix
endif

If Header(User-Agent) contains "Gnus"
Set Header X-GPG-RSA-KeyID: 0x5390952E
endif

; Intitialisierungen
Gosub SetVariablen

; Automatische Hinweise auf Crosspostings, ggf. Nachfrage nach FollowUp
Gosub CheckCrosspostingUndFup2

; Mailantworten => ggf. Mail-References setzen
If Header(In-Reply-To) = "" and Header(To) > ""
In-Reply-To: %Last(Header(References))%
endif

; Falls Reply-To gleich From, Reply-To überflüssig
If Not %Reply-To% is empty
If Address(%From%) = Address(%Reply-To%) then
Delete Header Reply-To
%Reply-To% = ""
endif
endif

quit

; ------------------------------------------------------------------------------------

Sub SetVariablen
Var global %NG% : String = Header(Newsgroups), %Fup2% : String = Header(FollowUp-To)
Var global %AnzNGs%: Integer = Count(',', %NG%) + 1
Var global %XPosting%: boolean = %AnzNGs% > 1
Var global %From% : String = Header(From), %Reply-To% : String = Header(Reply-To)
endsub

Sub CheckCrosspostingUndFup2
Var %s%, %temp%: String

If Header(Followup-To) > "" and Header(Newsgroups) contains ","
;    Set Intro
Append Lines
X-Post in %Header(Newsgroups)%
Fup2 %Header(Followup-To)%
end
elseif Header(Followup-To) > "" and not Header(Newsgroups) contains
","
;    Set Intro
Append Lines
Fup2 %Header(Followup-To)%
end
elseif Header(Newsgroups) contains "," and Header(Followup-To) Is Empty
If Ask("Soll ein Followup-To gesetzt werden?","Crosspost ohne
Followup-To")
Set Header Followup-To: %Input("Followup-To setzten","Wohin soll der
Followup-To gehen?",Header(Newsgroups))%
;    Set Intro
Append Lines
X-Post in %Header(Newsgroups)%
Fup2 %Header(Followup-To)%
end
else
;    Set Intro
Append Lines
X-Post in %Header(Newsgroups)%
end
endif
endif

endsub

Sub TrennerZuAufzaehlung ( %Org%, %Trenner%, Var %Erg% )
Var %i%, %L%: Integer, %first%: boolean = true

%Erg% = ""
%L% = Length(%Trenner%)
For %i% = Length(%Org%) to 1 Step -1
If Copy(%Org%, %i%, %L%) = %Trenner%
If %first%
%Erg% = " und " + Cutleft(%Erg%, %L%-1)
else
%Erg% = ", " + Cutleft(%Erg%, %L%-1)
endif
else
%Erg% = Copy(%Org%, %i%, 1) + %Erg%
endif
Next

endsub

Freundliche Grüße
Wolfgang Bauer
--
http://www.wolfgang-bauer.at
[ Auf dieses Posting antworten ]
Antworten

Hermann (29.06.2008 11:36)