From 1b7eb828644a13259ff072e3464c6e8493571e6e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 5 Aug 2020 12:31:44 +0200 Subject: [PATCH] Tweak the Message screenshot insertion * lisp/gnus/message.el (message-insert-screenshot): Force scaling to 1, since the screenshot image will already be suitable for displaying directly (it's the same resolution). --- lisp/gnus/message.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 1453cbe643e..378c3b04673 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -8694,9 +8694,12 @@ used to take the screenshot." (insert-image (create-image image 'png t :max-width (* (frame-pixel-width) 0.8) - :max-height (* (frame-pixel-height) 0.8)) + :max-height (* (frame-pixel-height) 0.8) + :scale 1) (format "<#part type=\"image/png\" disposition=inline content-transfer-encoding=base64 raw=t>\n%s\n<#/part>" - ;; Get a base64 version of the image. + ;; Get a base64 version of the image -- this avoids later + ;; complications if we're auto-saving the buffer and + ;; restoring from a file. (with-temp-buffer (set-buffer-multibyte nil) (insert image) -- 2.39.2