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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b9c1d735f2d590004a5f1dd8090c0c7e991cc7a2..c2ce39633b53d017380cfe4e97e596509cd0487a 100644 (file)
--- 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 fc6f591e0ce6deb9aca9d375efbfa651a41fec36..36baf354100222aee20edfa89dfe915a1b6df41c 100644 (file)
--- 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))