(shr-expand-url): Fix typo.

diff --git a/lisp/shr.el b/lisp/shr.el
index ee231e6..401ac1a 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -402,7 +402,7 @@ redirects somewhere else."
        (not shr-base))
     url)
    ((and (not (string-match "/\\'" shr-base))
-        (not (string-match "\\`" url)))
+        (not (string-match "\\`/" url)))
     (concat shr-base "/" url))
    (t
     (concat shr-base url))))