(shr-rescale-image): Use the right image-size variant.
[gnus] / lisp / shr.el
index 04ed016..2efd740 100644 (file)
@@ -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))
          (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
           (width (car size))
           (height (cdr size))
           (edges (window-inside-pixel-edges