More accurate e-mail cheching

This commit is contained in:
Alexander S. Aganichev 2001-11-02 10:06:13 +00:00
parent 01da006468
commit d2a2e75859

View File

@ -149,8 +149,9 @@ void Container::StyleCodeHighlight(const char* text, int row, int col, bool dohi
txptr = end;
ptr = end-1;
}
else if(((ptr == text) or not in_ftn_domained_address(ptr, text))
and (isascii(*ptr) and not isspace(*ptr) and not ispunct(*ptr))) {
else if(((ptr == text) or not in_ftn_domained_address(ptr, text)) and
(isascii(*ptr) and not isspace(*ptr) and not ispunct(*ptr) and
((ptr == text) or (not isxalnum(ptr[-1]) and (ptr[-1] != '@'))))) {
// try to guess e-mail address...
const char *commerce_at = NULL;
@ -163,11 +164,15 @@ void Container::StyleCodeHighlight(const char* text, int row, int col, bool dohi
else {
commerce_at = strpbrk(ptr, " \t:/@");
}
if ((commerce_at != NULL) and (*commerce_at == '@')) {
if((commerce_at != NULL) and (*commerce_at == '@')) {
bool dot_found = false;
++commerce_at;
while((*commerce_at != NUL) and (isalnum(*commerce_at) or (*commerce_at == '.') or (*commerce_at == '-'))) {
if(*commerce_at == '.')
dot_found = true;
++commerce_at;
}
if(dot_found) {
strxcpy(buf, txptr, (uint)(ptr-txptr)+1);
prints(row, col+sclen, color, buf);
sclen += strlen(buf);
@ -179,6 +184,7 @@ void Container::StyleCodeHighlight(const char* text, int row, int col, bool dohi
}
}
}
}
if(*ptr)
prevchar = *ptr++;
}