diff options
author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2013-06-16 22:54:56 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-06-16 22:54:56 +0000 |
commit | 5c3087e9762fe7248ddb31b683a8ff58c85f95e7 (patch) | |
tree | 1f94ccfa5c4965dc9e5a2fa484ebf7ad41fb31dd | |
parent | c74cb3449a0c0e54f79ecec93886a0737326e033 (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/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/gnus/eww.el | 9 |
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." |