FIX: Email does not handle non ascii chars correctly

fixes: Oldes/Rebol-issues#2406

Author: Oldes

src/core/l-types.c

@@ -705,14 +705,11 @@ bad_hex:	Trap0(RE_INVALID_CHARS);
 **
 ***********************************************************************/
 {
-	REBYTE *str;
+	REBYTE *str = Reset_Buffer(BUF_FORM, len);
 	REBOOL at = FALSE;
 	REBUNI n;
+	REBCNT cnt = len;
 
-	VAL_SERIES(value) = Make_Binary(len);
-	VAL_INDEX(value) = 0;
-
-	str = VAL_BIN(value);
 	for (; len > 0; len--) {
 		if (*cp == '@') {
 			if (at) return 0;
@@ -721,14 +718,17 @@ bad_hex:	Trap0(RE_INVALID_CHARS);
 		if (*cp == '%') {
 			if (len <= 2 || !Scan_Hex2(cp+1, &n, FALSE)) return 0;
 			*str++ = (REBYTE)n;
-			cp += 3;
+			cp  += 3;
 			len -= 2;
+			cnt -= 2;
 		}
 		else *str++ = *cp++;
 	}
 	*str = 0;
 	if (!at) return 0;
-	VAL_TAIL(value) = (REBCNT)(str - VAL_BIN(value));
+
+	VAL_SERIES(value) = Decode_UTF_String(BIN_DATA(BUF_FORM), cnt, 8, FALSE);
+	VAL_INDEX(value) = 0;
 	VAL_SET(value, REB_EMAIL);
 	return cp;
 }

src/tests/units/lexer-test.r3

@@ -26,6 +26,8 @@ Rebol [
 	--test-- "valid `emails`"
 		--assert email? load {name@where}
 		--assert email? load {@name} ;@@ https://github.com/Oldes/Rebol-issues/issues/1962
+		--assert email? load {a@šiška}
+		--assert email? load {@%C5%A1}
 
 ===end-group===
 

src/tests/units/mold-test.r3

@@ -317,6 +317,11 @@ Rebol [
 	--test-- "issue-159"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/159
 		--assert "a@b" = mold a@b
+	--test-- "issue-2406"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2406
+		--assert "a@šiška" = mold a@šiška
+		--assert "a@š" = mold a@%C5%A1
+
 ===end-group===
 
 ===start-group=== "mold image!"