From: Andreas Schwab <schwab@linux-m68k.org>
Date: Wed, 6 Jan 2016 19:50:02 +0000 (+0100)
Subject: Properly encode/decode base64Binary data in SOAP
X-Git-Tag: emacs-25.0.90~254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6b47af82f6c7d960388ec46dd8ab371c2e34de4;p=emacs.git

Properly encode/decode base64Binary data in SOAP

	* lisp/net/soap-client.el (soap-encode-xs-basic-type): Encode
	base64Binary value as utf-8.
	(soap-decode-xs-basic-type): Decode base64Binary value as utf-8.
---

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index f8cdaa9bc56..74024644966 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -538,7 +538,7 @@ This is a specialization of `soap-encode-value' for
                (base64Binary
                 (unless (stringp value)
                   (error "Not a string value for base64Binary"))
-                (base64-encode-string value))
+                (base64-encode-string (encode-coding-string value 'utf-8)))
 
                (otherwise
                 (error "Don't know how to encode %s for type %s"
@@ -682,7 +682,7 @@ This is a specialization of `soap-decode-type' for
                decimal byte float double duration)
          (string-to-number (car contents)))
         (boolean (string= (downcase (car contents)) "true"))
-        (base64Binary (base64-decode-string (car contents)))
+        (base64Binary (decode-coding-string (base64-decode-string (car contents)) 'utf-8))
         (anyType (soap-decode-any-type node))
         (Array (soap-decode-array node))))))