Fix max-width/height for Message screenshots

* lisp/gnus/message.el (message-insert-screenshot):
:max-width/height apparently has to be integers.
This commit is contained in:
Lars Ingebrigtsen 2020-08-05 15:02:28 +02:00
parent dc47bc77dc
commit 4b3f44fc97

View file

@ -8693,8 +8693,8 @@ used to take the screenshot."
(set-mark (point))
(insert-image
(create-image image 'png t
:max-width (* (frame-pixel-width) 0.8)
:max-height (* (frame-pixel-height) 0.8)
:max-width (truncate (* (frame-pixel-width) 0.8))
:max-height (truncate (* (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 -- this avoids later