aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen2016-04-17 19:14:01 +0200
committerLars Magne Ingebrigtsen2016-04-17 19:14:12 +0200
commit64699a5ac88a63d5d96c0e3468207a82c84b68c2 (patch)
tree6aa89fa7d37e93692d04cfe3e1232b4b1c413e73 /lisp
parent3de30674d7aa79c9f366f65c9f30aec2c8963b54 (diff)
downloademacs-64699a5ac88a63d5d96c0e3468207a82c84b68c2.tar.gz
emacs-64699a5ac88a63d5d96c0e3468207a82c84b68c2.zip
Default `message-use-idna' to t
* lisp/gnus/message.el (message-use-idna): Default to t (since Emacs comes with puny.el now).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/gnus/message.el22
1 files changed, 3 insertions, 19 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 3b2cf672020..fc339a4585f 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1756,25 +1756,9 @@ no, only reply back to the author."
1756 :type '(radio (const :format "%v " nil) 1756 :type '(radio (const :format "%v " nil)
1757 (string :format "FQDN: %v"))) 1757 (string :format "FQDN: %v")))
1758 1758
1759(defcustom message-use-idna 1759(defcustom message-use-idna t
1760 (and (or (mm-coding-system-p 'utf-8) 1760 "Whether to encode non-ASCII in domain names into ASCII according to IDNA."
1761 (condition-case nil 1761 :version "25.2"
1762 (let (mucs-ignore-version-incompatibilities)
1763 (require 'un-define))
1764 (error)))
1765 (condition-case nil
1766 (require 'idna)
1767 (file-error)
1768 (invalid-operation))
1769 idna-program
1770 (executable-find idna-program)
1771 (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o")
1772 t)
1773 "Whether to encode non-ASCII in domain names into ASCII according to IDNA.
1774GNU Libidn, and in particular the elisp package \"idna.el\" and
1775the external program \"idn\", must be installed for this
1776functionality to work."
1777 :version "22.1"
1778 :group 'message-headers 1762 :group 'message-headers
1779 :link '(custom-manual "(message)IDNA") 1763 :link '(custom-manual "(message)IDNA")
1780 :type '(choice (const :tag "Ask" ask) 1764 :type '(choice (const :tag "Ask" ask)