aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

replace gnus-rescale-image with create-image property :height

Browse source
This commit is contained in:
stardiviner 2021-10-30 18:12:52 +08:00
parent 00560d5f4f
commit c8408cf44e
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
org-contacts.el
View file

@ -911,11 +911,9 @@ address."
(t (expand-file-name avatar (file-name-directory (first org-contacts-files))))))))
(when image-path
(throw 'icon
(if (fboundp 'gnus-rescale-image)
;; FIXME `gnus-rescale-image' does not support rescale `create-image' spec.
(gnus-rescale-image (create-image image-path)
(cons org-contacts-icon-size org-contacts-icon-size))
(create-image image-path)))))
(if (featurep 'imagemagick)
(create-image image-path 'imagemagick nil :height org-contacts-icon-size)
(create-image image-path nil nil :height org-contacts-icon-size)))))
;; Next, try Gravatar
(when org-contacts-icon-use-gravatar
(let* ((gravatar-size org-contacts-icon-size)