From: Lars Magne Ingebrigtsen Date: Mon, 10 Jun 2013 22:28:35 +0000 (+0000) Subject: lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~12 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=001b9fbe7c415ef77f4e2b8a6c448989c379ae94;p=emacs.git lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms --- 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))