From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 19 Oct 2010 08:19:45 +0000 (+0000)
Subject: shr.el: Fix last change.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~566
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fe10446ee03d05506af9e787b56f4c2ca4ee956;p=emacs.git

shr.el: Fix last change.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index fbbed031efe..4c77c73db1d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 50e75323dba..d16899c14b7 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -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"