Bug: url.el breaks W3

[T.V. Raman]

The latest changes to url.el break emacs/w3.

Specifically, url.el gets confused by urls like the following ---
which is what Google Search returns. So: here is the first hit
for Emacspeak from Google:

https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg

If you pass the above url to  the url package, it gets all
confused  after stripping off the initial
https://www.google.com/url?q, url encodes the rest, and then
throws an error saying it's not a valid tramp  file name; trace
attached.

Debugger entered--Lisp error: (error "Not a Tramp file name:
/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  signal(error ("Not a Tramp file name:
/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";))
  error("Not a Tramp file name: %s"
"/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  
tramp-dissect-file-name("/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
t)
  
tramp-find-foreign-file-name-handler("/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  tramp-file-name-handler(file-name-directory
"/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  
file-name-directory("/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  
url-file-directory("/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  url-basic-auth([cl-struct-url "https" nil nil "www.google.com" 443
"/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
nil nil t nil t] nil nil nil)
  #[(scheme) "address@hidden@   \304\211\n$B\207\305\304B\207"
[scheme url realm fboundp nil 0] 6](("basic" url-basic-auth . 4))
  mapcar(#[(scheme)
"address@hidden@        \304\211\n$B\207\305\304B\207" [scheme url realm
fboundp nil 0] 6] (("digest" url-digest-auth . 7) ("basic"
url-basic-auth . 4)))
  url-get-authentication([cl-struct-url "https" nil nil
"www.google.com" 443
"/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
nil nil t nil t] nil any nil)
  url-http-create-request()
  url-http([cl-struct-url "https" nil nil "www.google.com" 443
"/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
nil nil t nil t] w3-fetch-redirect-callback (nil
"https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";))
  url-https([cl-struct-url "https" nil nil "www.google.com" 443
"/url%3fq%3dhttp://emacspeak.sourceforge.net/%26sa%3dU%26ei%3dVxWWT8uYLtTaiQKg4-XpCQ%26ved%3d0CBIQFjAA%26usg%3dAFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
nil nil t nil t] w3-fetch-redirect-callback (nil
"https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";))
  
url-retrieve-internal("https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
w3-fetch-redirect-callback (nil
"https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
nil nil)
  
url-retrieve("https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";
w3-fetch-redirect-callback
("https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";))
  
w3-fetch("https://www.google.com/url?q=http://emacspeak.sourceforge.net/&sa=U&ei=VxWWT8uYLtTaiQKg4-XpCQ&ved=0CBIQFjAA&usg=AFQjCNHVfIGT4ew6_GNyGkN3jMx78YmcHg";)
  call-interactively(w3-fetch nil nil)


-- 
Best Regards,
--raman

-- 
Best Regards,
--raman