(url-basic-auth): Encode password string.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index ce730ce74ea..adf1d5b6703 100644
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -93,7 +93,8 @@ instead of the filename inheritance method."
                        (cons file
                              (setq retval
                                    (base64-encode-string
-                                    (format "%s:%s" user pass)))))
+                                    (format "%s:%s" user
+                                            (encode-coding-string pass 'utf-8))))))
                  (symbol-value url-basic-auth-storage))))
      (byserv
       (setq retval (cdr-safe (assoc file byserv)))