Index: freexp/servers.inc
===================================================================
RCS file: /server/cvs/freexp/servers.inc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- freexp/servers.inc 25 Feb 2006 21:35:12 -0000 1.2
+++ freexp/servers.inc 27 Feb 2006 11:51:31 -0000 1.3
@@ -6,8 +6,8 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: servers.inc,v 1.2 2006/02/25 21:35:12 mw Exp $ }
-const oldfile=7;
+{ $Id: servers.inc,v 1.3 2006/02/27 11:51:31 mw Exp $ }
+const oldfile=8;
oldfiles:array [1..oldfile] of string[32]=(
'83683051cc566c6d63aa0e6306d98290', {Rev.: 1.1.2.1}
'a4cd5ca774c25ab950cd1382d6fb18d5', {Rev.: 1.1.2.2}
@@ -15,11 +15,15 @@
'8d2fcd69e86bc9bb2bd7d4ab1ae85f1d', {Rev.: 1.1.2.4}
'2701c3f82e96ed13fd3902718fdd885d', {Rev.: 1.1.2.5 und 1.2
(auto-de-branching)}
'85e0c6ae88fa99f47461e649f2dfaa05', {Rev.: 1.3}
- '262798f8ab34bc6c2fcf5f9483ba5d10' {Rev.: 1.4}
+ '262798f8ab34bc6c2fcf5f9483ba5d10', {Rev.: 1.4}
+ 'a8a639ee38fbba9b5c8d77f9007801fd' {Rev.: 1.5 und 1.4.2.1}
);
-{Aktuelle Rev 1.5 und 1.4.2.1: a8a639ee38fbba9b5c8d77f9007801fd (Branch 3.40
und Main)}
+{Aktuelle Rev 1.6 und 1.4.2.2: 8f6f37568b7171927524d061493d5b9f (Branch 3.40
und Main)}
{
$Log: servers.inc,v $
+ Revision 1.3 2006/02/27 11:51:31 mw
+ MW: - Überarbeitete Servers.dat u.a. auf Vorschläge in c.f.d
+
Revision 1.2 2006/02/25 21:35:12 mw
MW: - Bedauerlicherweise wurden die MD5-Summen mit Unixzeilenenden
berechnet. Diese Fassung benutzt jetzt MD5-Summen mit
Index: freexp/xp-d.rq
===================================================================
RCS file: /server/cvs/freexp/xp-d.rq,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- freexp/xp-d.rq 7 Feb 2006 11:17:35 -0000 1.70
+++ freexp/xp-d.rq 27 Feb 2006 10:38:56 -0000 1.71
@@ -3,7 +3,7 @@
K (c) 1993-1999 Peter Mandrella
K (c) 2000-2001 OpenXP-Team
K (c) 2002-2006 FreeXP, http://www.freexp.de
-# $Id: xp-d.rq,v 1.70 2006/02/07 11:17:35 mw Exp $
+# $Id: xp-d.rq,v 1.71 2006/02/27 10:38:56 mw Exp $
# Online-Hilfe, Tastenmakros
1 XP.HLP
@@ -2944,7 +2944,21 @@
10
11 Wollen Sie "*Reply-To-All*" aktivieren?
20 ~^Ja , ^Nein~
+-
+# --- UKAWP -----------------------------------------------------------
++ 2751
+# Zeilenzahl
+0 7
+1 CrossPoint/FreeXP hat festgestellt das sie wohl UKAW oder
+2 UKAD einsetzen. Diese Clients haben bekannte Fehler die mit
+3 dem FreeXP-Patchtool UKAWP abgemildert bis beseitigt werden
+4 können.
+5
+6 Wollen Sie UKAWP jetzt ihre UKAW/UKAD Installation patchen
+7 lassen?
+20 ~^Ja , ^Nein~
+-
# --- WIN2 ------------------------------------------------------------
Index: freexp/xp-e.rq
===================================================================
RCS file: /server/cvs/freexp/xp-e.rq,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -r1.109 -r1.110
--- freexp/xp-e.rq 7 Feb 2006 11:17:35 -0000 1.109
+++ freexp/xp-e.rq 27 Feb 2006 10:38:56 -0000 1.110
@@ -3,7 +3,7 @@
K (c) 1993-1999 Peter Mandrella
K (c) 2000-2001 OpenXP-Team
K (c) 2002-2006 FreeXP, http://www.freexp.de
-# $Id: xp-e.rq,v 1.109 2006/02/07 11:17:35 mw Exp $
+# $Id: xp-e.rq,v 1.110 2006/02/27 10:38:56 mw Exp $
# Online Help File, Key Macros
1 XP-E.HLP
@@ -2904,7 +2904,19 @@
10
11 Do you want to activate "*Reply-To-All*"?
20 ~^Yes , ^No~
+-
+# --- UKAWP -----------------------------------------------------------
++ 2751
+# number of lines
+0 5
+1 CrossPoint/FreeXP has detected that you will use UKAW or
+2 UKAD. This Clients has known Bugs, that can be corrected
+3 by the FreeXP-Patchtool UKAWP.
+4
+5 Could UKAWP now patch your UKAW/UKAD-Installation?
+20 ~^Yes , ^No~
+-
# --- WIN2 ------------------------------------------------------------
Index: freexp/xp.pas
===================================================================
RCS file: /server/cvs/freexp/xp.pas,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- freexp/xp.pas 25 Feb 2006 22:08:21 -0000 1.42
+++ freexp/xp.pas 27 Feb 2006 10:38:56 -0000 1.43
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp.pas,v 1.42 2006/02/25 22:08:21 mw Exp $ }
+{ $Id: xp.pas,v 1.43 2006/02/27 10:38:56 mw Exp $ }
{ Cross \\// }
{ //\\ Point }
@@ -175,6 +175,7 @@
{$ENDIF }
if parTiming = 0 then
begin
+ if UKA and not ukawp then askRTA(true,1);
if not ParNoDLL then
begin
test_dll;
@@ -185,7 +186,7 @@
goto Ende;
end;
end;
- askRTA(true); { Bei neuer Version RTA-Konfiguration abfragen }
+ askRTA(true,0); { Bei neuer Version RTA-Konfiguration abfragen }
end;
setAutoTZ(true); { autom. Zeitzonen-Umstellung aktivieren }
test_defaultgruppen;
@@ -222,6 +223,10 @@
end.
{
$Log: xp.pas,v $
+ Revision 1.43 2006/02/27 10:38:56 mw
+ MW: - Patchhinweis zu UKAW/UKAD erscheind nun beim ersten Start
+ mit einer UKAW/UKAD-EXE im XP-Verzeichnis.
+
Revision 1.42 2006/02/25 22:08:21 mw
MW: - Bei nicht vorhandener XPOINT.COL wird diese mit den Defaultwerten
erstellt (nicht bei ParMono).
Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -r1.81 -r1.82
--- freexp/xp0.pas 26 Feb 2006 15:33:10 -0000 1.81
+++ freexp/xp0.pas 27 Feb 2006 10:38:56 -0000 1.82
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp0.pas,v 1.81 2006/02/26 15:33:10 mw Exp $ }
+{ $Id: xp0.pas,v 1.82 2006/02/27 10:38:56 mw Exp $ }
{ CrossPoint - Deklarationen }
@@ -1243,6 +1243,9 @@
nttimer : integer;
modus : boolean;
+ {UKAWP}
+ ukawp: boolean;
+
{ Globale Variable enthalten eine Listerzeile mit text in charbuf und
word-Attribuen }
{ in attrbuf. beschrieben werden sie in xp1.MakeListDisplay, gelesen in
Winxp.consolewrite }
@@ -1262,6 +1265,10 @@
{
$Log: xp0.pas,v $
+ Revision 1.82 2006/02/27 10:38:56 mw
+ MW: - Patchhinweis zu UKAW/UKAD erscheind nun beim ersten Start
+ mit einer UKAW/UKAD-EXE im XP-Verzeichnis.
+
Revision 1.81 2006/02/26 15:33:10 mw
MW: - Replaceown-Einstellung ist jetzt Netztypabhängig:
Wird der Netztyp geändert, so wird nicht die Einstellung
Index: freexp/xp2cfg.inc
===================================================================
RCS file: /server/cvs/freexp/xp2cfg.inc,v
retrieving revision 1.76
retrieving revision 1.78
diff -u -r1.76 -r1.78
--- freexp/xp2cfg.inc 6 Jan 2006 17:21:16 -0000 1.76
+++ freexp/xp2cfg.inc 27 Feb 2006 11:13:48 -0000 1.78
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2cfg.inc,v 1.76 2006/01/06 17:21:16 mw Exp $ }
+{ $Id: xp2cfg.inc,v 1.78 2006/02/27 11:13:48 mw Exp $ }
const cfs : array[0..4] of string[5] = ('Z','Shift','Ctrl','Alt','#Z');
saveCFG : boolean = false;
@@ -795,6 +795,7 @@
PGP_GPGEncodingOptions:='';
RTAMode := 128 + 13; { RTA und/oder WAB vorhanden }
RTAStandard := true;
+ ukawp:=false;
RTAOwnAddresses := nil;
RTANoOwnAddresses := nil;
end;
@@ -1051,6 +1052,7 @@
writeln (t, 'RTA-OwnAddresses=', RTAOwnAddresses^);
if assigned (RTANoOwnAddresses) then
writeln (t, 'RTA-NoOwnAddresses=', RTANoOwnAddresses^);
+ writeln(t,'UKAWP=',jnf(ukawp));
wrhd(4); { Z-Netz }
writeln(t,'Kleinschreibung=',jnf(smallnames));
writeln(t,'InterruptLogin=',jnf(BreakLogin));
@@ -1714,6 +1716,7 @@
getx(su, 'UserAutoCreate',UserAutoCreate) or
getb(su, 'RTA-Mode', RTAMode) or
getx(su, 'askreplyto',askreplyto) or
+ getx(su, 'UKAWP',ukawp) or
getx(su, 'RTA-Standard', RTAStandard) or
getRTAAdressen)
then
@@ -1878,6 +1881,13 @@
{
$Log: xp2cfg.inc,v $
+ Revision 1.78 2006/02/27 11:13:48 mw
+ MW: - UKAWP gehört nicht in die Section Z-Netz
+
+ Revision 1.77 2006/02/27 10:38:56 mw
+ MW: - Patchhinweis zu UKAW/UKAD erscheind nun beim ersten Start
+ mit einer UKAW/UKAD-EXE im XP-Verzeichnis.
+
Revision 1.76 2006/01/06 17:21:16 mw
MW: - Neue Standardeinstellung: Bei RFC-Nachrichten wird jetzt
der alte Betreff per Default angehängt, wenn der Betreff
Index: freexp/xp4rta.pas
===================================================================
RCS file: /server/cvs/freexp/xp4rta.pas,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -r1.8 -r1.10
--- freexp/xp4rta.pas 2 Jan 2006 12:28:51 -0000 1.8
+++ freexp/xp4rta.pas 27 Feb 2006 11:28:34 -0000 1.10
@@ -7,7 +7,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp4rta.pas,v 1.8 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp4rta.pas,v 1.10 2006/02/27 11:28:34 mw Exp $ }
{ CrossPoint - Reply-To-All- (RTA) Routinen }
@@ -22,11 +22,21 @@
uses
xpglobal,crt,dos,typeform,fileio,inout,winxp,keys,video,maske,datadef,database,
resource,xp0,lfn,xpnt,xp1,xp1input,xp2,xp3,xp4,xp4e,xp6,xp9,xp9sel,maus2,lister;
-procedure askRTA (const XPStart :boolean);
+function UKA:boolean;
+procedure askRTA (const XPStart :boolean; menu:byte);
procedure ReplyToAll (var brk, adresseAusgewaehlt :boolean; var empf, realname
:string; var dispdat :DB);
implementation
+function UKA:boolean;
+begin
+ UKA:=Exist('E-AGENT.EXE') or
+ Exist('E-MAIL.EXE') or
+ Exist('E-NEWS.EXE') or
+ Exist('E-MAIL16.EXE') or
+ Exist('E-NEWS16.EXE');
+end;
+
{ 'true', wenn Adresse im Baum vorhanden; 'false', wenn nicht. }
function eigeneAdresse (baum :domainNodeP; adresse :AdrStr) :boolean;
@@ -302,23 +312,24 @@
end;
end;
-procedure askRTA (const XPStart :boolean);
+procedure askRTA (const XPStart :boolean; menu:byte);
var x,y,i :byte;
msglines, p :byte;
z :taste;
res :boolean;
s :string;
+
begin
- if (ntUsed [nt_UUCP] + ntUsed [nt_Client] + ntUsed [nt_ZConnect] > 0) and
+ if ((ntUsed [nt_UUCP] + ntUsed [nt_Client] + ntUsed [nt_ZConnect] > 0) and
(RTAMode and 128 = 128) and
- (not XPFirstStart) then
+ (not XPFirstStart)) or (menu>0) then
begin
- msglines := ival (getres2 (2750, 0));
+ msglines := ival (getres2 (2750+menu, 0));
msgbox (64, msglines + 5, '', x, y);
moff;
for i := 1 to msglines do
begin
- s:=getres2 (2750, i);
+ s:=getres2 (2750+menu, i);
gotoxy(x + 3, y + 1 + i);
repeat
p := cposx ('*', s);
@@ -332,20 +343,28 @@
until s = '';
end;
mon;
- res := (ReadButton (x + 44, y + msglines + 3, 2, '*' + getres2(2750, 20),
1, true, z) = 1);
+ res := (ReadButton (x + 44, y + msglines + 3, 2, '*' + getres2(2750+menu,
20), 1, true, z) = 1);
closebox;
freeres;
- if res then
- RTAMode := iif (askReplyTo, 15, 13)
- else
- RTAMode := iif (askReplyTo, 3, 0);
-
+ case menu of
+ 0: begin
+ if res then
+ RTAMode := iif (askReplyTo, 15, 13)
+ else
+ RTAMode := iif (askReplyTo, 3, 0);
+ end;
+ 1: begin
+ if res and exist('UKAWP.EXE') then shell('UKAWP.EXE',64,1);
+ ukawp:=true;
+ end;
+ end;
+
if XPStart then
saveConfig
else
globalModified;
end else
- if XPFirstStart then RTAMode := 13;
+ if XPFirstStart and (menu=0) then RTAMode := 13;
end;
procedure saveList (list :RTAEmpfaengerP; var sList :RTAEmpfaengerP);
@@ -1051,6 +1070,13 @@
{
$Log: xp4rta.pas,v $
+ Revision 1.10 2006/02/27 11:28:34 mw
+ MW: - UKAWP-Aufruf verbessert.
+
+ Revision 1.9 2006/02/27 10:38:56 mw
+ MW: - Patchhinweis zu UKAW/UKAD erscheind nun beim ersten Start
+ mit einer UKAW/UKAD-EXE im XP-Verzeichnis.
+
Revision 1.8 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- freexp/xp9.pas 26 Feb 2006 13:55:06 -0000 1.33
+++ freexp/xp9.pas 27 Feb 2006 10:38:56 -0000 1.34
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9.pas,v 1.33 2006/02/26 13:55:06 mw Exp $ }
+{ $Id: xp9.pas,v 1.34 2006/02/27 10:38:56 mw Exp $ }
{ CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -983,7 +983,7 @@
end;
closebox;
if (typ = 1) and edit then
- askRTA (false);
+ askRTA (false,0);
end;
procedure get_first_box(d:DB);
@@ -1112,6 +1112,10 @@
end.
{
$Log: xp9.pas,v $
+ Revision 1.34 2006/02/27 10:38:56 mw
+ MW: - Patchhinweis zu UKAW/UKAD erscheind nun beim ersten Start
+ mit einer UKAW/UKAD-EXE im XP-Verzeichnis.
+
Revision 1.33 2006/02/26 13:55:06 mw
MW: - Bei RFC/Client ist Replaceown per Default jetzt eingeschaltet.
Index: freexp/beispiel/servers.dat
===================================================================
RCS file: /server/cvs/freexp/beispiel/servers.dat,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- freexp/beispiel/servers.dat 19 Feb 2006 09:33:00 -0000 1.5
+++ freexp/beispiel/servers.dat 27 Feb 2006 11:52:20 -0000 1.6
@@ -20,7 +20,6 @@
[POP3/SMTP/IMAP (Mail eingehend/incoming)]
pop3.freexp.de
-pop.t-online.de
pop.gmx.net
pop3.arcor.de
pop3.web.de
@@ -31,11 +30,22 @@
mail.komtel.net
mail.ping.de
secure.ping.de
+pop3.directbox.com
+mail.kruemel.org
+pop.o2online.de
+mx.freenet.de
+post.strato.de
+pop.t-online.de
+imap.t-online.de
+multipop.t-online.de
+securepop.t-online.de
+popmail.t-online.de
+pop-mail.t-online.de
+secure-pop.t-online.de
+secure-imap.t-online.de
[SMTP (Mail ausgehend/outgoing)]
smtp.freexp.de
-mailto.t-online.de
-smtprelay.t-online.de
mail.gmx.net
mail.arcor.de
smtp.web.de
@@ -46,6 +56,17 @@
mail.komtel.net
mail.ping.de
secure.ping.de
+mail.directbox.com
+mail.kruemel.org
+mail.o2online.de
+mx.freenet.de
+post.strato.de
+mailto.t-online.de
+smtprelay.t-online.de
+securesmtp.t-online.de
+smtpmail.t-online.de
+asmtp.t-online.de
+secure-asmtp.t-online.de
[NNTP (News)]
news.freexp.de
@@ -58,3 +79,13 @@
news.tiscali.de
news.komtel.net
news.ping.de
+news.visyn.net
+news.heise.de
+news.online.de
+news.freenet.de
+news1.open-news-network.org
+news2.open-news-network.org
+news3.open-news-network.org
+news4.open-news-network.org
+news5.open-news-network.org
+news6.open-news-network.org
Index: freexp/doc/ukawp.txt
===================================================================
RCS file: /server/cvs/freexp/doc/ukawp.txt,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- freexp/doc/ukawp.txt 23 Jan 2006 16:50:00 -0000 1.2
+++ freexp/doc/ukawp.txt 27 Feb 2006 16:33:11 -0000 1.3
@@ -136,7 +136,7 @@
Ein ganz ähnlicher - technisch nicht ganz so kritischer, dafür aber in
allen bisher erschienenen UKAW/UKAD-Versionen existenter - Bug besteht
-hinsichtlich der unter 3. beschriebenen Änderung der Sofware-Header
+hinsichtlich der unter 3. beschriebenen Änderung der Software-Header
"X-Mailer:", "X-Newsreader:" und "User-Agent:": Sollte der originale
Software-Header aufgrund seiner Länge gefaltet gewesen sein, erzeugen
UKAW/UKAD einen fehlerhaften RFC-Header, weil alle gefalteten Zeilen
@@ -467,7 +467,7 @@
Zwar sollte bei insgesamt zwölf möglichen Kombinationen in nur dreien
davon der Header "X-XP-Version:" nicht deaktiviert werden, aber genau
die sind vermutlich die aktuell am häufigsten vorkommenden (nämlich
-nicht gepatchte UKAW/UKAD-Versionen bis UKAW v3.38 bzw. UKAD v3.38).
+nicht gepatchte UKAW/UKAD-Versionen bis UKAW v3.38 bzw. UKAD v2.38).
U.a. deshalb muß der Header auch explizit deaktiviert (statt explizit
aktiviert) werden.
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
