shr.el (shr-expand-url): Fix typo.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index ee231e6a82fbdc5c7d5c9f71fbe6fb3beb0e8edb..401ac1a08c64b9df43627ed3427567d674d07703 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/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))))