(shr-rescale-image): Use the right image-size variant.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6796ddd..aa4c82d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-10-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-tag-blockquote): Convert name.
+       (shr-rescale-image): Use the right image-size variant.
 
        * gnus-sum.el (gnus-summary-select-article-buffer): If the article
        buffer isn't shown, then select the current article first instead of

diff --git a/lisp/shr.el b/lisp/shr.el
index 04ed016..2efd740 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -179,7 +179,7 @@ fit these criteria."
          (not (get-buffer-window (current-buffer))))
       (create-image data nil t)
     (let* ((image (create-image data nil t))
-          (size (image-size image))
+          (size (image-size image t))
           (width (car size))
           (height (cdr size))
           (edges (window-inside-pixel-edges