From 84f6f0ea7f7a02de0ce8bb3c17ba2960007a3700 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 22 Aug 2002 14:28:31 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fb74a3..5557c06 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-08-22 Kai Gro,b_(Bjohann + + * gnus-art.el (gnus-emphasis-alist): Strikethru had a lot of false + positives, make it stricter. From Jochen Hein (trivial change). + 2002-08-21 Katsumi Yamaoka * gnus.el (gnus-other-frame): Trivial fix. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 404e47c..8644ded 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -322,7 +322,6 @@ directly.") '(("\\*" "\\*" bold) ("_" "_" underline) ("/" "/" italic) - ("-" "-" strikethru) ("_/" "/_" underline-italic) ("_\\*" "\\*_" underline-bold) ("\\*/" "/\\*" bold-italic) @@ -333,6 +332,8 @@ directly.") (format format (car spec) (car (cdr spec))) 2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec))))) types) + ("\\(\\s-\\|^\\)\\(-\\(\\(\\w\\|-[^-]\\)+\\)-\\)\\(\\s-\\|[?!.,;]\\)" + 2 3 gnus-emphasis-strikethru) ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-underline))) "*Alist that says how to fontify certain phrases. -- 1.7.10.4