aboutsummaryrefslogtreecommitdiffstats
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
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).
-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)