shr.el (shr-strike-through): New face.

 (shr-tag-s): Use it to provide <s> support.
 (shr-tag-s): Remove duplicate definition.

2 files changed, 13 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 99a08de633b..a4327337f87 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+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.
+        (shr-tag-s): Remove duplicate definition.
+
 2011-04-25  Teodor Zlatanov  <tzz@lifelogs.com>
 
         * gnus-registry.el (gnus-registry-ignore-group-p): Don't call
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 1f6cb528c5d..20865bda5ac 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/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))
 
@@ -775,9 +782,6 @@ ones, in case fg and bg are nil."
 (defun shr-tag-u (cont)
   (shr-fontize-cont cont 'underline))
 
-(defun shr-tag-s (cont)
-  (shr-fontize-cont cont 'strike-through))
-
 (defun shr-parse-style (style)
   (when style
     (save-match-data