From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 20 Jan 2022 12:37:26 +0000 (+0100)
Subject: Improve the textsec-domain-suspicious-p warning message
X-Git-Tag: emacs-29.0.90~2900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10fbbddddd67aaeecf6d2c36bd171282012c5a46;p=emacs.git

Improve the textsec-domain-suspicious-p warning message

* lisp/international/textsec.el (textsec-domain-suspicious-p):
Improve warning message.
---

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index db13839e90e..09337548de4 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -245,8 +245,11 @@ or use certain other unusual mixtures of characters."
      (lambda (char)
        (when (eq (elt idna-mapping-table char) t)
          (throw 'found
-                (format "Disallowed character: `%s' (#x%x, %s)"
-                        (bidi-string-strip-control-characters (string char))
+                (format "Disallowed character%s (#x%x, %s)"
+                        (if (eq (get-char-code-property char 'general-category)
+                                'Cf)
+                            ""
+                          (concat ": " (string char)))
                         char
                         (get-char-code-property char 'name)))))
      domain)