Fold shr text with single quotation marks better

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

lisp/ChangeLog

+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

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