diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-13 02:49:32 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-13 02:49:32 +0000 |
| commit | cbbbf7b15afb4884dbc75a535bd0572c1a38c521 (patch) | |
| tree | b7db0321137cdcef514c9db451a8639576dd4c2e /lisp/url/url-auth.el | |
| parent | 40aa4c27cb7cac7ef2ff7a88c504cc2ae42da194 (diff) | |
| download | emacs-cbbbf7b15afb4884dbc75a535bd0572c1a38c521.tar.gz emacs-cbbbf7b15afb4884dbc75a535bd0572c1a38c521.tar.bz2 emacs-cbbbf7b15afb4884dbc75a535bd0572c1a38c521.zip | |
Diane Murray <disumu at x3y2z1.net>
(url-basic-auth): Set path to "/" when URL has an empty string filename.
Diffstat (limited to 'lisp/url/url-auth.el')
| -rw-r--r-- | lisp/url/url-auth.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index 3c33fd914e5..b2de802cbad 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -74,6 +74,7 @@ instead of the pathname inheritance method." (setq server (format "%s:%d" server port) path (cond (realm realm) + ((string= "" path) "/") ((string-match "/$" path) path) (t (url-basepath path))) byserv (cdr-safe (assoc server |