summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>2013-06-16 22:54:56 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2013-06-16 22:54:56 +0000
commit5c3087e9762fe7248ddb31b683a8ff58c85f95e7 (patch)
tree1f94ccfa5c4965dc9e5a2fa484ebf7ad41fb31dd
parentc74cb3449a0c0e54f79ecec93886a0737326e033 (diff)
lisp/gnus/eww.el (eww-browse-url): Don't add a User-Agent (twice), because that makes Bing refuse connection
-rw-r--r--lisp/gnus/ChangeLog2
-rw-r--r--lisp/gnus/eww.el9
2 files changed, 5 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 58b5ae1a56..c531853988 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,6 +1,8 @@
2013-06-16 Lars Magne Ingebrigtsen <larsi@gnus.org>
* eww.el (eww-display-html): Default to using the entire window width.
+ (eww-browse-url): Don't add a User-Agent header (twice), because that
+ makes Bing refuse connection.
* shr.el (shr-make-table): Cache the table rendering at the table
level, and not the <td> level. This is a bit faster.
diff --git a/lisp/gnus/eww.el b/lisp/gnus/eww.el
index b34ec7655c..868450c51d 100644
--- a/lisp/gnus/eww.el
+++ b/lisp/gnus/eww.el
@@ -222,12 +222,9 @@
(set (make-local-variable 'browse-url-browser-function) 'eww-browse-url))
(defun eww-browse-url (url &optional new-window)
- (let ((url-request-extra-headers
- (append '(("User-Agent" . "eww/1.0"))
- url-request-extra-headers)))
- (push (list eww-current-url (point))
- eww-history)
- (eww url)))
+ (push (list eww-current-url (point))
+ eww-history)
+ (eww url))
(defun eww-quit ()
"Exit the Emacs Web Wowser."