(put-image
(let ((image (mm-get-image handle)))
(if (eq mm-inline-large-images 'resize)
- (gnus-rescale-image image
- (let ((edges (gnus-window-inside-pixel-edges
- (get-buffer-window (current-buffer)))))
- (cons (truncate (* mm-inline-large-images-proportion
- (- (nth 2 edges) (nth 0 edges))))
- (truncate (* mm-inline-large-images-proportion
- (- (nth 3 edges) (nth 1 edges)))))))
+ (gnus-rescale-image
+ image
+ (let ((edges (gnus-window-inside-pixel-edges
+ (get-buffer-window (current-buffer)))))
+ (cons (truncate (* mm-inline-large-images-proportion
+ (- (nth 2 edges) (nth 0 edges))))
+ (truncate (* mm-inline-large-images-proportion
+ (- (nth 3 edges) (nth 1 edges)))))))
image))
b)
(insert "\n\n")