(shr-find-fill-point): Don't regard apostrophe as kinsoku-bol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59b2eb9..9c7e5f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-06  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * shr.el (shr-find-fill-point): Don't regard apostrophe as kinsoku-bol.
+
 2010-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-util.el (gnus-macroexpand-all): Use eval-and-compile.

diff --git a/lisp/shr.el b/lisp/shr.el
index 0b2fa93..4c4f47e 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -301,12 +301,12 @@ redirects somewhere else."
                    (eq (following-char) ? )
                    (shr-char-breakable-p (preceding-char))
                    (shr-char-breakable-p (following-char))
-                   (and (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))
-                        (not (shr-char-kinsoku-bol-p (following-char))))
+                   (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))
+                          (not (shr-char-kinsoku-bol-p (following-char)))))
                    (shr-char-kinsoku-eol-p (following-char))))
       (backward-char 1))
     (if (and (not (or failed (eolp)))