X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fshr.el;h=3ca7f1c14fbd2eea9e51e5d265fa621f33fbcfab;hp=f46afaa7207b59f2dd86f0f587b76865b6f7c051;hb=26eca13465f697cd34c9ce6a4a9321eecc17b15c;hpb=805a2f5d5bfe7110709d7e092c8b9427d73dc672

diff --git a/lisp/shr.el b/lisp/shr.el
index f46afaa72..3ca7f1c14 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -333,6 +333,7 @@ size, and full-buffer size."
 
 (defun shr-insert (text)
   (when (and (eq shr-state 'image)
+	     (not (bolp))
 	     (not (string-match "\\`[ \t\n]+\\'" text)))
     (insert "\n")
     (setq shr-state nil))