[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 b6b47af: Properly encode/decode base64Binary data
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] emacs-25 b6b47af: Properly encode/decode base64Binary data in SOAP |
Date: |
Wed, 06 Jan 2016 20:04:04 +0000 |
branch: emacs-25
commit b6b47af82f6c7d960388ec46dd8ab371c2e34de4
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>
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.
---
lisp/net/soap-client.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index f8cdaa9..7402464 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))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 b6b47af: Properly encode/decode base64Binary data in SOAP,
Andreas Schwab <=