Fixed regex on line 186 of wm

bin/mw

@@ -183,7 +183,7 @@ delete() { if [ -z "${fulladdr+x}" ]; then
 askinfo() { \
 	[ -z "$fulladdr" ] && echo "Give the full email address to add:" &&
 		read -r fulladdr
-	while ! echo "$fulladdr" | grep -qE "^.+@.+\.[A-z]+$"; do
+	while ! echo "$fulladdr" | grep -qE "^.+@.+\.[a-Z]+$"; do
 		echo "\`$fulladdr\` is not a valid email address. Please retype the address:"
 		read -r fulladdr
 	done