From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 19 Oct 2010 23:26:28 +0000 (+0000)
Subject: shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b643306fb0d4335141d289f28238c04744c89629;p=emacs.git

shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 15c329e4521..36b4bc4518e 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index e360eab9064..cdb6ea67d1d 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -241,8 +241,8 @@ redirects somewhere else."
 		  (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 @@ redirects somewhere else."
 	      (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 ()