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

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.

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))