From: yamaoka <yamaoka>
Date: Wed, 22 Oct 2003 12:29:22 +0000 (+0000)
Subject: Synch to Gnus 200310221225.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=551acde9e42f3fa2cd97ede45e1e483ca686da40;p=elisp%2Fgnus.git-

Synch to Gnus 200310221225.
---

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  <yamaoka@jpl.org>
+
+	* gnus-art.el (gnus-emphasis-strikethru): Use the :strike-through
+	attribute in Emacs.
+
 2003-10-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* 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)