diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2015-12-29 00:07:50 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2015-12-29 00:07:50 +0100 |
| commit | 341feb3a26a0277f535217f4919b23eb70e3680e (patch) | |
| tree | 7585f2c2f2504d7998166e2e63abcdc51d3b9558 /lisp/net/puny.el | |
| parent | 1efc5f8b09273c359683ce13be95fb5df7a84311 (diff) | |
| download | emacs-341feb3a26a0277f535217f4919b23eb70e3680e.tar.gz | |
Fix puny-encoding all-non-ASCII domains
* puny.el (puny-encode-string): Fix the all-non-ASCII encoding case.
Diffstat (limited to 'lisp/net/puny.el')
| -rw-r--r-- | lisp/net/puny.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/net/puny.el b/lisp/net/puny.el index a16e3a07706..d96c6c22196 100644 --- a/lisp/net/puny.el +++ b/lisp/net/puny.el @@ -47,7 +47,11 @@ For instance, \"bücher\" => \"xn--bcher-kva\"." string))) (if (= (length ascii) (length string)) string - (concat "xn--" ascii "-" (puny-encode-complex (length ascii) string))))) + (concat "xn--" + (if (null ascii) + "" + (concat ascii "-")) + (puny-encode-complex (length ascii) string))))) (defun puny-decode-domain (domain) "Decode DOMAIN according to the IDNA/punycode algorith. |