[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-contacts-rebased 7dd30d9 115/118: replace gnus-rescal

From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased 7dd30d9 115/118: replace gnus-rescale-image with create-image property :height
Date: Fri, 12 Nov 2021 15:37:15 -0500 (EST)

branch: scratch/org-contacts-rebased
commit 7dd30d90d09f8ed6a0b7d7c319dcc9b464333340
Author: stardiviner <numbchild@gmail.com>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    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 6e0b16d..f7644f8 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 
-                 (create-image image-path)))))
+               (if (featurep 'imagemagick)
+                   (create-image image-path 'imagemagick nil :height 
+                 (create-image image-path nil nil :height 
     ;; Next, try Gravatar
     (when org-contacts-icon-use-gravatar
       (let* ((email-list (org-entry-get pom org-contacts-email-property))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]