From 551acde9e42f3fa2cd97ede45e1e483ca686da40 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 22 Oct 2003 12:29:22 +0000 Subject: [PATCH] Synch to Gnus 200310221225. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 070461b..ff7f4f2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-22 Katsumi Yamaoka + + * gnus-art.el (gnus-emphasis-strikethru): Use the :strike-through + attribute in Emacs. + 2003-10-21 Katsumi Yamaoka * message.el (message-bounce): Don't erase except bounced header. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 21ddb51..5d0c58f 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -434,7 +434,9 @@ and the latter avoids underlining any whitespace at all." Example: (_/*word*/_)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-strikethru '((t (:strikethru t))) +(defface gnus-emphasis-strikethru (if (featurep 'xemacs) + '((t (:strikethru t))) + '((t (:strike-through t)))) "Face used for displaying strike-through text (-word-)." :group 'gnus-article-emphasis) -- 1.7.10.4