]> git.eshelyaron.com Git - emacs.git/commitdiff
Deconfuse textsec doc strings slightly
authorLars Ingebrigtsen <larsi@gnus.org>
Wed, 19 Jan 2022 10:34:48 +0000 (11:34 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Wed, 19 Jan 2022 10:34:48 +0000 (11:34 +0100)
* lisp/international/textsec.el (textsec-name-suspicious-p):
(textsec-domain-suspicious-p):
(textsec-local-address-suspicious-p):
(textsec-name-suspicious-p):
(textsec-suspicious-nonspacing-p):
(textsec-email-suspicious-p): Suspiciosness isn't only about
homoglyphs, so don't claim so in the doc strings.

lisp/international/textsec.el

index 4b6620051dbce2079e89d31757380774f0dcaf61..51111f5e77efffe7e417f3ff8bb4e62eb3f320e5 100644 (file)
@@ -233,9 +233,11 @@ The scripts are as defined by the Unicode Standard Annex 24 (UAX#24)."
   "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)
@@ -253,8 +255,10 @@ LOCAL is the bit before \"@\" in an email address.
 
 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'"
@@ -273,8 +277,10 @@ email address.
 
 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'"
@@ -293,6 +299,7 @@ can look similar to other characters when displayed."
   "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."
@@ -321,6 +328,7 @@ 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',