# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1287530788 0
# Node ID 097fe1170a9ad2d38c4497b660aa8cebdbf46d41
# Parent  062487f243c22eff3a2b3aa0b8185b534c3ba186
shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.

diff -r 062487f243c2 -r 097fe1170a9a lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Oct 19 23:06:50 2010 +0000
+++ b/lisp/gnus/ChangeLog	Tue Oct 19 23:26:28 2010 +0000
@@ -1,5 +1,8 @@
 2010-10-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* shr.el (shr-find-fill-point): Don't leave blanks at the start of some
+	lines.
+
 	* nndoc.el (nndoc-type-alist): Add git support.
 	(nndoc-git-type-p): New function.
 	(nndoc-transform-git-article): Ditto.
diff -r 062487f243c2 -r 097fe1170a9a lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Tue Oct 19 23:06:50 2010 +0000
+++ b/lisp/gnus/shr.el	Tue Oct 19 23:26:28 2010 +0000
@@ -241,8 +241,8 @@
 		  (insert "\n"))
 	  (put-text-property (1- (point)) (point) 'shr-break t)
 	  ;; No space is needed at the beginning of a line.
-	  (if (eq (following-char) ? )
-	      (delete-char 1)))
+	  (when (eq (following-char) ? )
+	    (delete-char 1)))
 	(when (> shr-indentation 0)
 	  (shr-indent))
 	(end-of-line))
@@ -280,6 +280,8 @@
 	      (while (and (> count 0)
 			  (aref (char-category-set (following-char)) ?>))
 		(forward-char 1)))
+	    (when (eq (following-char) ? )
+	      (forward-char 1))
 	    t)))))
 
 (defun shr-ensure-newline ()