[Emacs-diffs] master 0e1711a 1/2: * lisp/net/tramp-cmds.el (tramp-reporter-dump-variable):

[Michael Albinus]

branch: master
commit 0e1711a0e29428173a743d38bfaba82fd56d77be
Author: Pierre Téchoueyres <address@hidden>
Commit: Michael Albinus <address@hidden>

    * lisp/net/tramp-cmds.el (tramp-reporter-dump-variable):
    
    Encode/decode string.
    
    Copyright-paperwork-exempt: yes
---
 lisp/net/tramp-cmds.el |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index fee74ee..22c1398 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)