From 32bca861ee9fe356a5c380b6b5e09ccdc88edead Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 17 Sep 2011 11:55:34 +0000 Subject: [PATCH] mm-view.el (mm-inline-image-emacs): Indent. --- lisp/mm-view.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/mm-view.el b/lisp/mm-view.el index 5a90f015a..926422865 100644 --- a/lisp/mm-view.el +++ b/lisp/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") -- 2.25.1