# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1287476385 0
# Node ID 8ad626575f8a5c29bcfa967d459e7b73badc71c3
# Parent  1ed05f12a0bcc53d3ed31996ffba5f0bb7efdbb1
shr.el: Fix last change.

diff -r 1ed05f12a0bc -r 8ad626575f8a lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Oct 19 07:57:50 2010 +0000
+++ b/lisp/gnus/ChangeLog	Tue Oct 19 08:19:45 2010 +0000
@@ -1,6 +1,6 @@
 2010-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* shr.el: Load kinsoku.
+	* shr.el: Load kinsoku if necessary.
 	(shr-kinsoku-shorten): New internal variable.
 	(shr-find-fill-point): Make kinsoku shorten text line if
 	shr-kinsoku-shorten is bound to non-nil.
diff -r 1ed05f12a0bc -r 8ad626575f8a lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Tue Oct 19 07:57:50 2010 +0000
+++ b/lisp/gnus/shr.el	Tue Oct 19 08:19:45 2010 +0000
@@ -32,7 +32,8 @@
 
 (eval-when-compile (require 'cl))
 (require 'browse-url)
-(load "kinsoku" nil t)
+(unless (aref (char-category-set (make-char 'japanese-jisx0208 33 35)) ?>)
+  (load "kinsoku" nil t))
 
 (defgroup shr nil
   "Simple HTML Renderer"