master 1b7eb82: Tweak the Message screenshot insertion

[Lars Ingebrigtsen]

branch: master
commit 1b7eb828644a13259ff072e3464c6e8493571e6e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 1453cbe..378c3b0 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)