Fold shr text with single quotation marks better

* net/shr.el (shr-find-fill-point): Don't break lines before a
quotation mark.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19d14f69017f86012125f9aee890b08fc816be9c..b1a76998639edb77d3159434aeeb37dcba3b8b54 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-25  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * net/shr.el (shr-find-fill-point): Don't break lines before a
+       quotation mark.
+
 2013-12-25  Kenjiro NAKAYAMA  <nakayamakenjiro@gmail.com>
 
        * net/eww.el (eww-form-textarea): Use a different face for

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 5c30bd8ac6715b9fe8e16969565901dbd01e0ff1..bb7b7106c7b10523f21489e7e6b939435c6c0527 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -550,7 +550,8 @@ size, and full-buffer size."
             (if (looking-at "\\(\\c<+\\)\\c<")
                 (goto-char (match-end 1))
               (forward-char 1))))
-       ((shr-char-kinsoku-bol-p (following-char))
+       ((and (shr-char-kinsoku-bol-p (following-char))
+             (not (eq (following-char) ?')))
         ;; Find forward the point where kinsoku-bol characters end.
         (let ((count 4))
           (while (progn