(defun shr-insert (text)
(when (and (eq shr-state 'image)
+ (not (bolp))
(not (string-match "\\`[ \t\n]+\\'" text)))
(insert "\n")
(setq shr-state nil))
(unless shr-start
(setq shr-start (point)))
(insert elem)
+ (setq shr-state nil)
(let (found)
(while (and (> (current-column) shr-width)
(progn
(shr-generic cont)))
(defun shr-tag-br (cont)
- (unless (bobp)
+ (unless (bolp)
(insert "\n")
(shr-indent))
(shr-generic cont))