[nongnu] elpa/helm 5e2a40262f 2/3: Fix thumnails display with image-dired-thumbnail-storage standard

[ELPA Syncer]

branch: elpa/helm
commit 5e2a40262f5c8a58d78cf1161f755f6f7b3b1478
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix thumnails display with image-dired-thumbnail-storage standard
---
 helm-files.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 3768463782..4e64cba58f 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4860,9 +4860,14 @@ Special commands:
         (cl-pushnew helm-ff-default-directory
                     helm-ff--thumbnailed-directories :test 'equal)
         (cl-loop for (disp . img) in candidates
-                 for type = (helm-acase (file-name-extension img)
-                              ("png" 'png)
-                              (("jpg" "jpeg") 'jpeg))
+                 for imgtype = (helm-acase (file-name-extension img)
+                                 ("png" 'png)
+                                 (("jpg" "jpeg") 'jpeg))
+                 for type = (if (and imgtype
+                                     (memq image-dired-thumbnail-storage
+                                      '(standard standard-large)))
+                                'png
+                              imgtype)
                  if type collect
                  (let ((thumbnail (plist-get
                                    (cdr 
(helm-ff--image-dired-get-thumbnail-image img))