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

2 files changed, 3 insertions, 1 deletions

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