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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f4d45e9..4003d3a 100644 (file)
--- 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 1a07224..9a7435f 100644 (file)
--- 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))