From: Pierre Téchoueyres <Pierre.Techoueyres@gfi.fr>
Date: Tue, 18 Aug 2015 12:24:16 +0000 (+0200)
Subject: * lisp/net/tramp-cmds.el (tramp-reporter-dump-variable):
X-Git-Tag: emacs-25.0.90~1361
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e1711a0e29428173a743d38bfaba82fd56d77be;p=emacs.git

* lisp/net/tramp-cmds.el (tramp-reporter-dump-variable):

Encode/decode string.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index fee74eedec2..22c139859f9 100644
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -236,8 +236,11 @@ buffer in your bug report.
 		 (string-match
 		  (concat "[^" (symbol-value 'mm-7bit-chars) "]") val))
 	(with-current-buffer reporter-eval-buffer
-	  (set varsym (format "(base64-decode-string \"%s\")"
-			      (base64-encode-string val))))))
+	  (set
+	   varsym
+	   (format
+	    "(decode-coding-string (base64-decode-string \"%s\") 'raw-text)"
+	    (base64-encode-string (encode-coding-string val 'raw-text)))))))
 
     ;; Dump variable.
     (tramp-compat-funcall 'reporter-dump-variable varsym mailbuf)