From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 17 Jun 2013 23:11:40 +0000 (+0000)
Subject: lisp/gnus/eww.el (eww-tag-input): Support <input type=image>
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~73^2~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9822de7295dbb3158b3b196ba50e81dae880501d;p=emacs.git

lisp/gnus/eww.el (eww-tag-input): Support <input type=image>
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b9c1d735f2d..c2ce39633b5 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -4,6 +4,7 @@
 	(eww-convert-widgets): Don't bug out if the first widget starts at the
 	beginning of the buffer.
 	(eww-convert-widgets): Fix last patch.
+	(eww-tag-input): Support <input type=image>.
 
 	* shr.el (shr-insert-table): Respect border-collapse: collapse.
 	(shr-tag-base): Protect against base specs that are degenerate.
diff --git a/lisp/gnus/eww.el b/lisp/gnus/eww.el
index fc6f591e0ce..36baf354100 100644
--- a/lisp/gnus/eww.el
+++ b/lisp/gnus/eww.el
@@ -279,7 +279,8 @@
 	 (value (cdr (assq :value cont)))
 	 (widget
 	  (cond
-	   ((equal type "submit")
+	   ((or (equal type "submit")
+		(equal type "image"))
 	    (list 'push-button
 		  :notify 'eww-submit
 		  :name (cdr (assq :name cont))