[nongnu] elpa/xml-rpc 8f624f8b96 44/64: Merge pull request #8 from larsmagne/master

[Stefan Kangas]

branch: elpa/xml-rpc
commit 8f624f8b964e9145acb504e4457c9510e87dd93c
Merge: 0ab093d601 8ee416cb76
Author: Mark A. Hershberger <mah@everybody.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #8 from larsmagne/master
    
    Return a unibyte string so that url.el doesn't think it's the wrong length
---
 xml-rpc.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/xml-rpc.el b/xml-rpc.el
index 282a5d2f34..6d3334db46 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -570,15 +570,16 @@ or nil if called with ASYNC-CALLBACK-FUNCTION."
         (let ((url-request-method "POST")
               (url-package-name "xml-rpc.el")
               (url-package-version xml-rpc-version)
-              (url-request-data (concat "<?xml version=\"1.0\""
-                                        " encoding=\"UTF-8\"?>\n"
-                                        (with-temp-buffer
-                                          (xml-print xml)
-                                          (when xml-rpc-allow-unicode-string
-                                            (encode-coding-region
-                                             (point-min) (point-max) 'utf-8))
-                                          (buffer-string))
-                                        "\n"))
+              (url-request-data
+              (concat "<?xml version=\"1.0\""
+                       " encoding=\"UTF-8\"?>\n"
+                       (with-temp-buffer
+                         (xml-print xml)
+                         (if xml-rpc-allow-unicode-string
+                             (string-as-unibyte
+                             (encode-coding-string (buffer-string) 'utf-8))
+                           (buffer-string)))
+                       "\n"))
               (url-mime-charset-string "utf-8;q=1, iso-8859-1;q=0.5")
               (url-request-coding-system xml-rpc-use-coding-system)
               (url-http-attempt-keepalives t)