+ (cond
+ ((string= (downcase (file-name-extension file)) "jpg")
+ (unless (file-exists-p album-dir-original)
+ (make-directory album-dir-original 'parents))
+ (call-process "cp" nil nil nil
+ "-al"
+ file
+ album-dir-original)
+ )
+ (t
+ (call-process "cp" nil nil nil
+ "-al"
+ file
+ album-dir)
+ ))
+ )