From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 5 Aug 2020 10:31:44 +0000 (+0200)
Subject: Tweak the Message screenshot insertion
X-Git-Tag: emacs-28.0.90~6809
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b7eb828644a13259ff072e3464c6e8493571e6e;p=emacs.git

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).
---

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)