branch: scratch/org-contacts-rebased
commit 7dd30d90d09f8ed6a0b7d7c319dcc9b464333340
Author: stardiviner <numbch...@gmail.com>
Commit: Stefan Monnier <monn...@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
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* ((email-list (org-entry-get pom org-contacts-email-property))
