diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 07:45:33 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 07:45:33 +0100 |
commit | 7e7974154b902f53dd1646ec0246b9e8b7c32824 (patch) | |
tree | 82aef50613ecc6e7d25b0866aec033bafc30135a /test | |
parent | 7785463c8edbd83e0a7a4c2fe5c233949aa570f2 (diff) | |
download | emacs-7e7974154b902f53dd1646ec0246b9e8b7c32824.tar.gz emacs-7e7974154b902f53dd1646ec0246b9e8b7c32824.tar.bz2 emacs-7e7974154b902f53dd1646ec0246b9e8b7c32824.zip |
Improve textsec-domain-suspicious-p message
* lisp/international/textsec.el (textsec-domain-suspicious-p):
Ensure that we're not confusing the user if there's a directional
override in the string we're checking.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/international/textsec-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/lisp/international/textsec-tests.el b/test/lisp/international/textsec-tests.el index acd77971501..f8fc0564807 100644 --- a/test/lisp/international/textsec-tests.el +++ b/test/lisp/international/textsec-tests.el @@ -162,6 +162,10 @@ (textsec-email-address-header-suspicious-p "Lars Ingebrigtsen <larsi@gn\N{LEFT-TO-RIGHT ISOLATE}us.org>")) + (should + (textsec-email-address-header-suspicious-p + "Lars Ingebrigtsen <larsi@\N{RIGHT-TO-LEFT OVERRIDE}gnus.org>")) + (should (textsec-email-address-header-suspicious-p "דגבא <foo@bar.com>"))) |