# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1291684869 0
# Node ID b050075901af36c1debec50d7432782a25b8d060
# Parent  833427a2cdd5336fc1cf2b2ac52f65d2896257f5
shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol character if a non-breakable character follows.

diff -r 833427a2cdd5 -r b050075901af lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Dec 06 23:27:17 2010 +0000
+++ b/lisp/gnus/ChangeLog	Tue Dec 07 01:21:09 2010 +0000
@@ -1,3 +1,8 @@
+2010-12-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol
+	character if a non-breakable character follows.
+
 2010-12-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* proto-stream.el (proto-stream-open-tls): Return nil if we don't get
diff -r 833427a2cdd5 -r b050075901af lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Mon Dec 06 23:27:17 2010 +0000
+++ b/lisp/gnus/shr.el	Tue Dec 07 01:21:09 2010 +0000
@@ -304,8 +304,8 @@
 		    (if (eq (preceding-char) ?')
 			(not (memq (char-after (- (point) 2))
 				   (list nil ?\n ? )))
-		      ;; There're some kinsoku CJK chars that aren't breakable.
 		      (and (shr-char-kinsoku-bol-p (preceding-char))
+			   (shr-char-breakable-p (following-char))
 			   (not (shr-char-kinsoku-bol-p (following-char)))))
 		    (shr-char-kinsoku-eol-p (following-char))))
       (backward-char 1))