diff options
| -rw-r--r-- | lisp/url/url-auth.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index e9ee72029f3..6848c0c73a7 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el | |||
| @@ -100,7 +100,10 @@ instead of the filename inheritance method." | |||
| 100 | (setq retval | 100 | (setq retval |
| 101 | (base64-encode-string | 101 | (base64-encode-string |
| 102 | (format "%s:%s" user | 102 | (format "%s:%s" user |
| 103 | (encode-coding-string pass 'utf-8)) | 103 | (if pass |
| 104 | (encode-coding-string pass | ||
| 105 | 'utf-8) | ||
| 106 | "")) | ||
| 104 | t)))) | 107 | t)))) |
| 105 | (symbol-value url-basic-auth-storage)))) | 108 | (symbol-value url-basic-auth-storage)))) |
| 106 | (byserv | 109 | (byserv |