(shr-insert): Only insert a blank line if we're starting from an image.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b52a65..d6b2626 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        space.  This seems to produce more pleasing results.
        (shr-tag-br): Make <br> only ensure a line break instead of always
        creating a blank line.  This looks more readable in my test corpus.
+       (shr-insert): Only insert a blank line if we're starting from an image.
 
 2012-03-15  Elias Pipping  <pipping@lavabit.com>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index f46afaa..3ca7f1c 100644 (file)
--- 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))