das hat sich erledigt

der folgende function filtert aus einem text Feld die E-Mail,

-----------------------------------------------------------------------------

drop function if exists getMail;

delimiter |
create function getMail(wort text) returns varchar(255)
deterministic
BEGIN
declare pos1, old_pos, _at, pos2 int;

set _at = locate('@', wort);
if _at = 0 then
return '';
end if;

set pos2 = locate(' ', wort, _at);
if pos2 = 0 then
set pos2 = char_length(wort);
else
set pos2 = pos2 - 1;
end if;

set pos1 = 1;
repeat
set old_pos = pos1;
set pos1 = locate(' ', wort, old_pos + 1);
until pos1 > _at or pos1 = 0 end repeat;

return substring(wort, old_pos + 1, pos2-old_pos);
END |
delimiter ;

------------------------------------------------------------------------
Die Funktion arbeitet Einwand frei unter MySQL v.5.0

aber leider Unter MySQL 5.1 bekomme ich folgenden fehler

use near delimiter |
create function getMail(wort text) returns varchar(255) determ' at line 1