From 9ca612ad6a971bdd5cae3c2169c110c1f713bc46 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 31 Oct 2010 17:25:37 +0100 Subject: [PATCH] Don't break lines between punctuation and non-punctuation (Line after the apostrophe in "'We"). --- lisp/ChangeLog | 3 +++ lisp/shr.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8aa8a63b0..2db942d11 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-31 Lars Magne Ingebrigtsen + * 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. diff --git a/lisp/shr.el b/lisp/shr.el index d72473527..c39dd0545 100644 --- 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)) ?>)) + (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)) -- 2.11.4.GIT