From 03387286db913a90c9e7cd889b0152cb7de39f67 Mon Sep 17 00:00:00 2001 From: plugd Date: Fri, 20 Aug 2021 08:54:00 +0200 Subject: [PATCH] Fail gracefully on unsupported image formats. --- elpher.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/elpher.el b/elpher.el index fc7ed8f..dfd139b 100644 --- a/elpher.el +++ b/elpher.el @@ -1175,14 +1175,16 @@ If ADDRESS is not supplied or nil the record is rendered as an (if (display-images-p) (let* ((image (create-image data - nil t)) - (window (get-buffer-window elpher-buffer-name))) - (when window - (setf (image-property image :max-width) (window-body-width window t)) - (setf (image-property image :max-height) (window-body-height window t))) - (elpher-with-clean-buffer - (insert-image image) - (elpher-restore-pos))) + nil t))) + (if (not image) + (error "Unsupported image format") + (let ((window (get-buffer-window elpher-buffer-name))) + (when window + (setf (image-property image :max-width) (window-body-width window t)) + (setf (image-property image :max-height) (window-body-height window t)))) + (elpher-with-clean-buffer + (insert-image image) + (elpher-restore-pos)))) (elpher-render-download data)))) ;; Search retrieval and rendering -- 2.20.1