X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fshr.el;h=cdb6ea67d1d49d485358c4b94f17673c3934f871;hp=e360eab906459cf6b016a7dd3a3b3ade63edb3e7;hb=347621446c6861403497abe427a6d27bef039f2a;hpb=d12d3a54c76eac95b783b96e92ddca9a8df0ed02

diff --git a/lisp/shr.el b/lisp/shr.el
index e360eab90..cdb6ea67d 100644
--- a/lisp/shr.el
+++ b/lisp/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 ()