+(defun album-convert-images (dest-dir &rest source-images)
+ (if (and (consp (car source-images))
+ (null (cdr source-images)))
+ (setq source-images (car source-images)))
+ (let (file prev-file)
+ (while source-images
+ (setq file (car source-images))
+ (album-convert-image dest-dir
+ prev-file file (nth 1 source-images))
+ (setq prev-file file
+ source-images (cdr source-images)))))
+
+(provide 'album)
+