shr.el (shr-find-fill-point): Don't break line between kinsoku-bol characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 763fc5e..1187d22 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-12-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * shr.el (shr-find-fill-point): Don't break line between kinsoku-bol
+       characters.
+
        * gnus-gravatar.el (gnus-gravatar-insert): Delete unnecessary binding
        to t of inhibit-read-only since it is inside gnus-with-article-headers.
        Suggested by Štěpán Němec <stepnem@gmail.com>.

diff --git a/lisp/shr.el b/lisp/shr.el
index 0b85cfb..c07bb34 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -301,7 +301,8 @@ redirects somewhere else."
                         (not (memq (char-after (- (point) 2))
                                    (list nil ?\n ? ))))
                    ;; There're some kinsoku CJK chars that aren't breakable.
-                   (shr-char-kinsoku-bol-p (preceding-char))
+                   (and (shr-char-kinsoku-bol-p (preceding-char))
+                        (not (shr-char-kinsoku-bol-p (following-char))))
                    (shr-char-kinsoku-eol-p (following-char))))
       (backward-char 1))
     (if (and (not (or failed (eolp)))