To provide <s> support.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e37fae3..8592577 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-strike-through): New face.
+       (shr-tag-s): Use it to provide <s> support.
+
 2011-04-25  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-ignore-group-p): Don't call

diff --git a/lisp/shr.el b/lisp/shr.el
index 1f6cb52..8dd228a 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -87,6 +87,10 @@ used."
 This is used for cid: URLs, and the function is called with the
 cid: URL as the argument.")
 
+(defface shr-strike-through '((t (:strike-through t)))
+  "Font for <s> elements."
+  :group 'shr)
+
 ;;; Internal variables.
 
 (defvar shr-folding-mode nil)
@@ -760,6 +764,9 @@ ones, in case fg and bg are nil."
   (shr-generic cont)
   (shr-ensure-newline))
 
+(defun shr-tag-s (cont)
+  (shr-fontize-cont cont 'shr-strike-through))
+
 (defun shr-tag-b (cont)
   (shr-fontize-cont cont 'bold))