From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Jun 2013 22:54:56 +0000 (+0000)
Subject: lisp/gnus/eww.el (eww-browse-url): Don't add a User-Agent (twice), because that makes... 
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~86
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c3087e9762fe7248ddb31b683a8ff58c85f95e7;p=emacs.git

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 58b5ae1a56a..c5318539889 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 b34ec7655cc..868450c51dd 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."