diff options
| author | Lars Magne Ingebrigtsen | 2016-04-17 19:14:01 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2016-04-17 19:14:12 +0200 |
| commit | 64699a5ac88a63d5d96c0e3468207a82c84b68c2 (patch) | |
| tree | 6aa89fa7d37e93692d04cfe3e1232b4b1c413e73 | |
| parent | 3de30674d7aa79c9f366f65c9f30aec2c8963b54 (diff) | |
| download | emacs-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.el | 22 |
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. | ||
| 1774 | GNU Libidn, and in particular the elisp package \"idna.el\" and | ||
| 1775 | the external program \"idn\", must be installed for this | ||
| 1776 | functionality 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) |