From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 17 Apr 2016 17:30:44 +0000 (+0200)
Subject: Finish idna->puny changes in last Message patch
X-Git-Tag: emacs-26.0.90~2208
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84c4cc589ddd5fcd5bf5ca5256727255c4819043;p=emacs.git

Finish idna->puny changes in last Message patch

* lisp/gnus/message.el (message-idna-to-ascii-rhs-1): Use puny
instead of idna functions.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index fc339a4585f..1ca7c5cafef 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -48,6 +48,7 @@
 (require 'dired)
 (require 'mm-util)
 (require 'rfc2047)
+(require 'puny)
 
 (autoload 'mailclient-send-it "mailclient")
 
@@ -1910,7 +1911,6 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
 (autoload 'gnus-output-to-rmail "gnus-util")
 (autoload 'gnus-request-post "gnus-int")
 (autoload 'gnus-server-string "gnus")
-(autoload 'idna-to-ascii "idna")
 (autoload 'message-setup-toolbar "messagexmas")
 (autoload 'mh-new-draft-name "mh-comp")
 (autoload 'mh-send-letter "mh-comp")
@@ -5851,7 +5851,7 @@ subscribed address (and not the additional To and Cc header contents)."
 	;; the domain part, i.e., if it is a local user's address.
 	(setq ace (if (string-match "\\`[[:ascii:]]*\\'" rhs)
 		      rhs
-		    (downcase (idna-to-ascii rhs))))
+		    (downcase (puny-encode-domain rhs))))
 	(when (and (not (equal rhs ace))
 		   (or (not (eq message-use-idna 'ask))
 		       (y-or-n-p (format "Replace %s with %s in %s:? "