Tweak eww DWIM URL recognition

Fixes: debbugs:19556
* net/eww.el (eww): Always interpret URLs that start with https?:
as plain URLs, even if they have spaces in them.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc7f5e57cbd15eacd6191810f56762d0f371ad75..808be4b69574a0539f8714fd570113f2c56a9b25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * net/eww.el (eww): Always interpret URLs that start with https?:
+       as plain URLs, even if they have spaces in them (bug#19556).
+
 2015-01-10  Daniel Colascione  <dancol@dancol.org>
 
        * vc/vc-hooks.el (vc-prefix-map): Bind vc-delete-file to C-x v x,

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 2ce95d97ff8d9190879b85fafad9257aae14c56b..52c1501fbe19379d3d02defa0b5c703a7ba5a135 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -255,10 +255,11 @@ word(s) will be searched for via `eww-search-prefix'."
         ((string-match-p "\\`ftp://" url)
          (user-error "FTP is not supported."))
         (t
-         (if (and (= (length (split-string url)) 1)
-                 (or (and (not (string-match-p "\\`[\"\'].*[\"\']\\'" url))
-                          (> (length (split-string url "[.:]")) 1))
-                     (string-match eww-local-regex url)))
+         (if (or (string-match "\\`https?:" url)
+                (and (= (length (split-string url)) 1)
+                     (or (and (not (string-match-p "\\`[\"\'].*[\"\']\\'" url))
+                              (> (length (split-string url "[.:]")) 1))
+                         (string-match eww-local-regex url))))
              (progn
                (unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url)
                  (setq url (concat "http://" url)))