From c8408cf44eb276894e657ad46bf826e544e92239 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sat, 30 Oct 2021 18:12:52 +0800 Subject: [PATCH] replace gnus-rescale-image with create-image property :height --- org-contacts.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index a167ad2..022e750 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -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)