diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/mm-view.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 5a90f015aed..926422865c7 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -90,13 +90,14 @@ (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") |