Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- freexp/xp9sel.pas 28 Mar 2005 15:15:20 -0000 1.9
+++ freexp/xp9sel.pas 4 Apr 2005 18:07:06 -0000 1.10
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9sel.pas,v 1.9 2005/03/28 15:15:20 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.10 2005/04/04 18:07:06 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Men�s }
@@ -1072,6 +1072,7 @@
or (cpos('.',mid(s,b+1))=0) or (blankpos(s)<>0)
or (s<>mailstring(s,false))
then is_mailaddress:=false;
+ if (mid(s,b+1)='invalid') then is_mailaddress:=true;
end;
@@ -2081,6 +2082,9 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.10 2005/04/04 18:07:06 mw
+ MW: - ung�ltige E-Mail-Adressen "@invalid" sind jetzt m�glich.
+
Revision 1.9 2005/03/28 15:15:20 mw
MW: - Erg�nzung letzter Commit
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
--- freexp/doc/snapshot.dq 28 Mar 2005 10:20:58 -0000 1.41
+++ freexp/doc/snapshot.dq 4 Apr 2005 18:13:23 -0000 1.42
@@ -4740,3 +4740,11 @@
Fehlermeldungen.
XP9SEL.PAS
+� 04.04.2005
+-------------
+MW:
+%+ Ung�ltige E-Mail-Adressen @invalid sind jetzt m�glich
+- Als unk�ltig markierte Mailadressen [EMAIL PROTECTED] sind
+ jetzt m�glich. Weitere Lockerungen folgen daraus nicht!
+ XP9SEL.PAS
+
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[email protected]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
