[Emacs-diffs] trunk r113008: lisp/gnus/eww.el (eww-browse-url): Don't add a User-Agent (twice), because that makes Bing refuse connection

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113008
revision-id: address@hidden
parent: address@hidden
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2013-06-16 22:54:56 +0000
message:
  lisp/gnus/eww.el (eww-browse-url): Don't add a User-Agent (twice), because 
that makes Bing refuse connection
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/eww.el               eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-16 22:20:55 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-16 22:54:56 +0000
@@ -1,6 +1,8 @@
 2013-06-16  Lars Magne Ingebrigtsen  <address@hidden>
 
        * 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.

=== modified file 'lisp/gnus/eww.el'
--- a/lisp/gnus/eww.el  2013-06-16 22:20:55 +0000
+++ b/lisp/gnus/eww.el  2013-06-16 22:54:56 +0000
@@ -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."