mm-view.el (mm-inline-image-emacs): Indent.
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Sat, 17 Sep 2011 11:55:34 +0000 (11:55 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Sat, 17 Sep 2011 11:55:34 +0000 (11:55 +0000)
lisp/mm-view.el

index 5a90f01..9264228 100644 (file)
     (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")