"Say whether DOMAIN's name looks suspicious.
Return nil if it isn't suspicious. If it is, return a string explaining
the potential problem.
+
Domain names are considered suspicious if they use characters
that can look similar to other characters when displayed, or that
-are not allowed by Unicode's IDNA mapping."
+are not allowed by Unicode's IDNA mapping, or are certain other
+non-usual mixtures of characters."
(catch 'found
(seq-do
(lambda (char)
If it isn't suspicious, return nil. If it is, return a string explaining
the potential problem.
+
Email addresses are considered suspicious if they use characters
-that can look similar to other characters when displayed."
+that can look similar to other characters when displayed, or are
+certain other non-usual mixtures of characters."
(cond
((not (equal local (ucs-normalize-NFKC-string local)))
(format "`%s' is not in normalized format `%s'"
If it isn't suspicious, return nil. If it is, return a string
explaining the potential problem.
-Names are considered suspicious if they use characters that
-can look similar to other characters when displayed."
+
+Names are considered suspicious if they use characters that can
+look similar to other characters when displayed, or are certain
+other non-usual mixtures of characters."
(cond
((not (equal name (ucs-normalize-NFC-string name)))
(format "`%s' is not in normalized format `%s'"
"Say whether STRING uses nonspacing characters in suspicious ways.
If it doesn't, return nil. If it does, return a string explaining
the potential problem.
+
Use of nonspacing characters is considered suspicious if there are
two or more consecutive identical nonspacing characters, or too many
consecutive nonspacing characters."
"Say whether EMAIL address looks suspicious.
If it isn't, return nil. If it is, return a string explaining the
potential problem.
+
An email address is considered suspicious if either of its 3 parts:
domain, local, or name -- are found to be suspicious by, respectively,
`textsec-domain-suspicious-p', `textsec-local-address-suspicious-p',