X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fshr.el;h=975fc6870fd18326b40ab05cd6a8b35103f8ed4e;hp=f1dbfefee532f79f28801865c440908e0cb6c6b6;hb=dbdb7907d8e13101de3191a4e7d1bc3b54a469ac;hpb=3a933de2a5d0c04a4ab7c4de8f1349c4328ef122

diff --git a/lisp/shr.el b/lisp/shr.el
index f1dbfefee..975fc6870 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -110,7 +110,8 @@ fit these criteria."
     (shr-add-font start (point) type)))
 
 (defun shr-add-font (start end type)
-  (put-text-property start end 'face type))
+  (let ((overlay (make-overlay start end)))
+    (overlay-put overlay 'face type)))
 
 (defun shr-a (cont)
   (let ((start (point))