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

2008-10-20 16:06:03 +00:00
parent 3b4df55029
commit ab8dad365f
1 changed files with 2 additions and 1 deletions
--- 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)))