diff lisp/gnus/shr.el @ 111057:097fe1170a9a

shr.el (shr-find-fill-point): Don't leave blanks at the start of some lines.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 19 Oct 2010 23:26:28 +0000
parents 779cd575396a
children ea17726e9043
line wrap: on
line diff
--- 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 ()