image)
(insert alt)))
-(defun shr-rescale-image (data &optional force)
- "Rescale DATA, if too big, to fit the current buffer.
-If FORCE, rescale the image anyway."
- (let ((image (create-image data nil t :ascent 100)))
+(defun shr-rescale-image (data)
+ (let* ((max-image-size 0)
+ (image (create-image data nil t :ascent 100)))
(if (or (not (fboundp 'imagemagick-types))
(not (get-buffer-window (current-buffer))))
image