(gnus-emphasis-strikethru): Use the :strike-through attribute in Emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 070461b..ff7f4f2 100644 (file)
--- 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 49b6bab..e208f11 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -396,7 +396,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)