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

[gnus] / lisp / shr.el

diff --git a/lisp/shr.el b/lisp/shr.el
index d7a4d18..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
@@ -208,7 +208,7 @@ fit these criteria."
     (shr-ensure-newline)))
 
 (defun shr-tag-blockquote (cont)
-  (shr-pre cont))
+  (shr-tag-pre cont))
 
 (defun shr-ensure-newline ()
   (unless (zerop (current-column))