From 2fe10446ee03d05506af9e787b56f4c2ca4ee956 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 19 Oct 2010 08:19:45 +0000 Subject: [PATCH] shr.el: Fix last change. --- lisp/gnus/ChangeLog | 2 +- lisp/gnus/shr.el | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) 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 - * 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" -- 2.39.5