# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1224518763 0
# Node ID 1fa392febf9a06cd12ac192f4e97a5d60ecc0c43
# Parent  8b3687fd75fe80fc878bdeacfd6eb182e305f408
(url-basic-auth): Encode password string.

diff -r 8b3687fd75fe -r 1fa392febf9a lisp/url/url-auth.el
--- a/lisp/url/url-auth.el	Mon Oct 20 16:05:53 2008 +0000
+++ b/lisp/url/url-auth.el	Mon Oct 20 16:06:03 2008 +0000
@@ -93,7 +93,8 @@
 		       (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)))