Fold shr text with single quotation marks better

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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19d14f69017..b1a76998639 100644
--- 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 5c30bd8ac67..bb7b7106c7b 100644
--- 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