lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f4d45e9fd0b..4003d3a51f8 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+        * eww.el (eww-tag-form): Protect against degenerate forms.
+
         * shr.el (shr-expand-url): Expand URLs that start with a slash
         correctly.
 
diff --git a/lisp/gnus/eww.el b/lisp/gnus/eww.el
index 1a072244fb4..9a7435fc54c 100644
--- a/lisp/gnus/eww.el
+++ b/lisp/gnus/eww.el
@@ -177,8 +177,9 @@
     (shr-ensure-paragraph)
     (shr-generic cont)
     (shr-ensure-paragraph)
-    (put-text-property start (1+ start)
-                       'eww-form eww-form)))
+    (when (> (point) start)
+      (put-text-property start (1+ start)
+                         'eww-form eww-form))))
 
 (defun eww-tag-input (cont)
   (let* ((start (point))