Commit 6eee2678 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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

 (shr-tag-s): Use it to provide <s> support.
 (shr-tag-s): Remove duplicate definition.
parent 15cbd324
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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment