* shr.el (shr-put-image): Break lines when inserting big pictures.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2e95ba..f48be7b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-put-image): Break lines when inserting big pictures.
+
 2010-11-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * shr.el (shr-image-displayer): Protect function against non-existent

diff --git a/lisp/shr.el b/lisp/shr.el
index 526f812..b55ee2f 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -388,6 +388,11 @@ redirects somewhere else."
       (let ((image (ignore-errors
                      (shr-rescale-image data))))
         (when image
+         ;; When inserting big-ish pictures, put them at the
+         ;; beginning of the line.
+         (when (and (> (current-column) 0)
+                    (> (car (image-size image t)) 400))
+           (insert "\n"))
          (insert-image image (or alt "*"))))
     (insert alt)))