summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2022-01-20 09:36:04 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2022-01-20 09:36:12 +0100
commit536ad66ae3713a18460d0fec16bfc9c60b60016c (patch)
tree0fc66ffe7a50eb7653cf0e841b1204ab8fb41d7c
parentc027ad59dd8446ea146fa5303222e17a18a44fd9 (diff)
downloademacs-536ad66ae3713a18460d0fec16bfc9c60b60016c.tar.gz
emacs-536ad66ae3713a18460d0fec16bfc9c60b60016c.tar.bz2
emacs-536ad66ae3713a18460d0fec16bfc9c60b60016c.zip
Improve textsec-domain-suspicious-p message
* lisp/international/textsec.el (textsec-domain-suspicious-p): Improve warning message.
-rw-r--r--lisp/international/textsec.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index c30d997b4fe..e6a04d93de5 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -252,7 +252,10 @@ or use certain other unusual mixtures of characters."
domain)
;; Does IDNA allow it?
(unless (puny-highly-restrictive-domain-p domain)
- (throw 'found (format "`%s' is not highly-restrictive" domain)))
+ (throw
+ 'found
+ (format "`%s' mixes characters from different scripts in suspicious ways"
+ domain)))
;; Check whether any segment of the domain name is confusable with
;; an ASCII-only segment.
(dolist (elem (split-string domain "\\."))