+;;; for exif 0.6.9
+;; (defun exif-image-file-date-time-original (image-file)
+;; (with-temp-buffer
+;; (call-process "exif" nil t nil
+;; "-t" "DateTimeOriginal"
+;; (expand-file-name image-file))
+;; (goto-char (point-min))
+;; (if (re-search-forward "^[ \t]*Value: " nil t)
+;; (buffer-substring (match-end 0)(point-at-eol)))))
+
+;;; for exif 0.6.15