Catch the invalid-operation that idna.el will issue

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 3d10eae..b8a69b0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1807,7 +1807,10 @@ no, only reply back to the author."
               (let (mucs-ignore-version-incompatibilities)
                 (require 'un-define))
             (error)))
-       (condition-case nil (require 'idna) (file-error))
+       (condition-case nil
+          (require 'idna)
+        (file-error)
+        (invalid-operation))
        idna-program
        (executable-find idna-program)
        (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o")