[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 81af228: Use a more specific Accepts header in eww
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 81af228: Use a more specific Accepts header in eww |
Date: |
Mon, 13 May 2019 14:08:40 -0400 (EDT) |
branch: master
commit 81af228a63c6ca284ae9fc1647615842c03d7881
Author: Federico Tedin <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Use a more specific Accepts header in eww
* lisp/net/eww.el (eww-accept-content-types): New variable.
(eww): Use it.
(eww-reload): Use it. (bug#33002).
Copyright-paperwork-exempt: yes
---
lisp/net/eww.el | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d9ac3e1..63afe11 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -223,6 +223,10 @@ See also `eww-form-checkbox-selected-symbol'."
(defvar eww-local-regex "localhost"
"When this regex is found in the URL, it's not a keyword but an address.")
+(defvar eww-accept-content-types
+ "text/html, text/plain, text/sgml, text/css, application/xhtml+xml,
*/*;q=0.01"
+ "Value used for the HTTP 'Accept' header.")
+
(defvar eww-link-keymap
(let ((map (copy-keymap shr-map)))
(define-key map "\r" 'eww-follow-link)
@@ -290,8 +294,9 @@ the default EWW buffer."
(let ((inhibit-read-only t))
(insert (format "Loading %s..." url))
(goto-char (point-min)))
- (url-retrieve url 'eww-render
- (list url nil (current-buffer))))
+ (let ((url-mime-accept-string eww-accept-content-types))
+ (url-retrieve url 'eww-render
+ (list url nil (current-buffer)))))
(defun eww--dwim-expand-url (url)
(setq url (string-trim url))
@@ -952,8 +957,9 @@ just re-display the HTML already fetched."
(error "No current HTML data")
(eww-display-html 'utf-8 url (plist-get eww-data :dom)
(point) (current-buffer)))
- (url-retrieve url 'eww-render
- (list url (point) (current-buffer) encode)))))
+ (let ((url-mime-accept-string eww-accept-content-types))
+ (url-retrieve url 'eww-render
+ (list url (point) (current-buffer) encode))))))
;; Form support.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 81af228: Use a more specific Accepts header in eww,
Lars Ingebrigtsen <=