From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 3 Oct 2010 23:52:32 +0000 (+0200)
Subject: (shr-tag-s): Fix face prop name.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=79c95ea4f5f5227719f2c9474f9327e70bee8fa4

(shr-tag-s): Fix face prop name.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e3b3f472..3f04142f7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,6 +9,7 @@
 	lines.
 	(shr-insert): \t is also space.
 	(shr-tag-s): Fix "s" tag name function.
+	(shr-tag-s): Fix face prop name.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index e10c8d63a..faeb16a7c 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -115,7 +115,7 @@ fit these criteria."
   (shr-fontize-cont cont 'underline))
 
 (defun shr-tag-s (cont)
-  (shr-fontize-cont cont 'strikethru))
+  (shr-fontize-cont cont 'strike-through))
 
 (defun shr-fontize-cont (cont &rest types)
   (let (shr-start)