[Emacs-diffs] /srv/bzr/emacs/trunk r102598: shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol character if a non-breakable character follows.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102598
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2010-12-07 01:21:09 +0000
message:
  shr.el (shr-find-fill-point): Don't break a line after a kinsoku-bol 
character if a non-breakable character follows.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-12-06 23:27:17 +0000
+++ b/lisp/gnus/ChangeLog       2010-12-07 01:21:09 +0000
@@ -1,3 +1,8 @@
+2010-12-07  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * proto-stream.el (proto-stream-open-tls): Return nil if we don't get

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-12-06 22:16:10 +0000
+++ b/lisp/gnus/shr.el  2010-12-07 01:21:09 +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))