From 6eee2678174c757f405972cfedc804401cc59605 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 30 Apr 2011 00:03:19 +0000 Subject: [PATCH] shr.el (shr-strike-through): New face. (shr-tag-s): Use it to provide support. (shr-tag-s): Remove duplicate definition. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/shr.el | 10 +++++++--- 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 + + * shr.el (shr-strike-through): New face. + (shr-tag-s): Use it to provide support. + (shr-tag-s): Remove duplicate definition. + 2011-04-25 Teodor Zlatanov * 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 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 -- 2.39.5