From 001b9fbe7c415ef77f4e2b8a6c448989c379ae94 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 10 Jun 2013 22:28:35 +0000 Subject: [PATCH] lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/eww.el | 5 +++-- 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 + * 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)) -- 2.39.2