From f0a2e91f49758f0e12310f9961386fe95fb579e4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 14 Jun 2017 00:14:28 +0530
Subject: Copy only provided tags.

* exiftool.el (exiftool-copy): Append "-all:all" to exiftool command
only when no tags are provided.
---
 exiftool.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/exiftool.el b/exiftool.el
index cf7a89f..77d829d 100644
--- a/exiftool.el
+++ b/exiftool.el
@@ -106,8 +106,10 @@ If no TAGS are specified, copy all tags from SOURCE."
 	 "-overwrite_original"
 	 "-tagsFromFile" source
 	 (append
-	  (mapcar (apply-partially 'format "-%s") tags)
-	  (list "-all:all" destination)))
+	  (if tags
+	      (mapcar (apply-partially 'format "-%s") tags)
+	    (list "-all:all"))
+	  (list destination)))
   (message "Tags from %s copied to %s" source destination)
   destination)
 
-- 
cgit v1.2.3