Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Revert "Fix about:protocols in EWW"

Browse source 
This reverts commit b49c174010.

We're making this obsolete instead.
This commit is contained in:
Lars Ingebrigtsen 2022-08-04 11:09:40 +02:00
parent 3ec2fdc9a1
commit 8348ace63a
3 changed files with 23 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/eww.el
View file

@ -450,9 +450,6 @@ For more information, see Info node `(eww) Top'."
;; Don't mangle file: URLs at all.
((string-match-p "\\`ftp://" url)
(user-error "FTP is not supported"))
((string-match-p "\\`about:" url)
;; Treat this as an about: url. (bug#56885)
url)
(t
;; Anything that starts with something that vaguely looks
;; like a protocol designator is interpreted as a full URL.

2
lisp/url/url-about.el
View file

@ -93,7 +93,7 @@
(if (fboundp func)
(progn
(set-buffer (generate-new-buffer " *about-data*"))
(insert "Content-type: text/html\n\n")
(insert "Content-type: text/plain\n\n")
(funcall func url)
(current-buffer))
(error "URL does not know about `%s'" item))))

48
lisp/url/url-http.el
View file

@ -237,32 +237,28 @@ request.")
(if (not (url-p url-current-lastloc))
(setq url-current-lastloc (url-generic-parse-url url-current-lastloc)))
(let ((referer (copy-sequence url-current-lastloc)))
;; In the case of `url-about', there is actually no host.
(if (url-host referer)
(progn
(setf (url-host referer) (puny-encode-domain (url-host referer)))
(let ((referer-string (url-recreate-url referer)))
(when (and (not (memq url-privacy-level '(low high paranoid)))
(not (and (listp url-privacy-level)
(memq 'lastloc url-privacy-level))))
;; url-privacy-level allows referer. But url-lastloc-privacy-level
;; may restrict who we send it to.
(cl-case url-lastloc-privacy-level
(host-match
(let ((referer-host (url-host referer))
(url-host (url-host url)))
(when (string= referer-host url-host)
referer-string)))
(domain-match
(let ((referer-domain (url-domain referer))
(url-domain (url-domain url)))
(when (and referer-domain
url-domain
(string= referer-domain url-domain))
referer-string)))
(otherwise
referer-string)))))
nil))))
(setf (url-host referer) (puny-encode-domain (url-host referer)))
(let ((referer-string (url-recreate-url referer)))
(when (and (not (memq url-privacy-level '(low high paranoid)))
(not (and (listp url-privacy-level)
(memq 'lastloc url-privacy-level))))
;; url-privacy-level allows referer. But url-lastloc-privacy-level
;; may restrict who we send it to.
(cl-case url-lastloc-privacy-level
(host-match
(let ((referer-host (url-host referer))
(url-host (url-host url)))
(when (string= referer-host url-host)
referer-string)))
(domain-match
(let ((referer-domain (url-domain referer))
(url-domain (url-domain url)))
(when (and referer-domain
url-domain
(string= referer-domain url-domain))
referer-string)))
(otherwise
referer-string)))))))
;; Building an HTTP request
(defun url-http-user-agent-string ()