Don't break lines between punctuation and non-punctuation

(Line after the apostrophe in "'We").

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8aa8a63..2db942d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * shr.el (shr-find-fill-point): Don't break lines between punctuation
+       and non-punctuation (like after the apostrophe in "'We").
+

        * gnus-sum.el (gnus-summary-select-article): Make sure
        gnus-original-article-buffer is alive.
 
        * gnus-sum.el (gnus-summary-select-article): Make sure
        gnus-original-article-buffer is alive.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index d724735..c39dd05 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -286,7 +286,9 @@ redirects somewhere else."
                            (aref (char-category-set (following-char)) ?>)))
                  (backward-char 1))
              (while (and (>= (setq count (1- count)) 0)
                            (aref (char-category-set (following-char)) ?>)))
                  (backward-char 1))
              (while (and (>= (setq count (1- count)) 0)

-                         (aref (char-category-set (following-char)) ?>))
+                         (aref (char-category-set (following-char)) ?>)
+                         (aref fill-find-break-point-function-table
+                               (following-char)))

                (forward-char 1)))
            (when (eq (following-char) ? )
              (forward-char 1))
                (forward-char 1)))
            (when (eq (following-char) ? )
              (forward-char 1))