diff options
| -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 @@ | |||
| 90 | (put-image | 90 | (put-image |
| 91 | (let ((image (mm-get-image handle))) | 91 | (let ((image (mm-get-image handle))) |
| 92 | (if (eq mm-inline-large-images 'resize) | 92 | (if (eq mm-inline-large-images 'resize) |
| 93 | (gnus-rescale-image image | 93 | (gnus-rescale-image |
| 94 | (let ((edges (gnus-window-inside-pixel-edges | 94 | image |
| 95 | (get-buffer-window (current-buffer))))) | 95 | (let ((edges (gnus-window-inside-pixel-edges |
| 96 | (cons (truncate (* mm-inline-large-images-proportion | 96 | (get-buffer-window (current-buffer))))) |
| 97 | (- (nth 2 edges) (nth 0 edges)))) | 97 | (cons (truncate (* mm-inline-large-images-proportion |
| 98 | (truncate (* mm-inline-large-images-proportion | 98 | (- (nth 2 edges) (nth 0 edges)))) |
| 99 | (- (nth 3 edges) (nth 1 edges))))))) | 99 | (truncate (* mm-inline-large-images-proportion |
| 100 | (- (nth 3 edges) (nth 1 edges))))))) | ||
| 100 | image)) | 101 | image)) |
| 101 | b) | 102 | b) |
| 102 | (insert "\n\n") | 103 | (insert "\n\n") |