From 3aa491bcaf40a24357a6527b92277e15aa878424 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 13 Oct 2007 02:50:02 +0000 Subject: [PATCH] Diane Murray (url-basic-auth): Set path to "/" when URL has an empty string filename. --- doc/emacs/ChangeLog | 6 +++++- lisp/url/ChangeLog | 5 +++++ lisp/url/url-auth.el | 1 + 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog index 6786728661..279a9a47ec 100644 --- a/doc/emacs/ChangeLog +++ b/doc/emacs/ChangeLog @@ -1,3 +1,7 @@ +2007-10-13 Glenn Morris + + * misc.texi (Interactive Shell): Correct INSIDE_EMACS reference. + 2007-10-11 Eric S. Raymond * emacs.texi: @@ -6,7 +10,7 @@ 2007-10-10 Eric S. Raymond - * files.texi (Version Systems): + * files.texi (Version Systems): * vc-xtra.texi: * vc1-xtra.texi: * vc2-xtra.texi: Merge in changes for new VC with fileset-oriented diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 5da6a1fbae..0e4362bce3 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2007-10-12 Diane Murray + + * url-auth.el (url-basic-auth): Set path to "/" when URL has an + empty string filename. + 2007-09-26 Juanma Barranquero * url-dav.el (top): diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index e48a4e293b..60239ba76a 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 -- 2.20.1