diff --git a/CHANGELOG.md b/CHANGELOG.md
index e8d20d3..e71fbdf 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -7,6 +7,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ## Unreleased
 ### Added
 * Marking files now works recursively, too.
+* Show message when starting sxiv
 
 ## [0.3.0] - 2020-01-14
 ### Added
diff --git a/sxiv.el b/sxiv.el
index e03ba61..13b7ad2 100644
--- a/sxiv.el
+++ b/sxiv.el
@@ -121,17 +121,19 @@ the files listed."
                               (-> (1+ fn-at-point-index)
                                   (number-to-string))))
          (recurse       (if recurse "-r" ""))
-         (proc          (make-process :name "sxiv"
-                                      :buffer "sxiv"
-                                      :command
-                                      (append '("sxiv")
-                                              sxiv-arguments
-                                              (when fn-at-point-index
-                                                (list "-n" fn-at-point-index))
-                                              (list recurse "--")
-                                              paths)
-                                      :connection-type 'pipe
-                                      :stderr "sxiv-errors")))
+         (proc          (progn
+                          (message "Running sxiv...")
+                          (make-process :name "sxiv"
+                                        :buffer "sxiv"
+                                        :command
+                                        (append '("sxiv")
+                                                sxiv-arguments
+                                                (when fn-at-point-index
+                                                  (list "-n" fn-at-point-index))
+                                                (list recurse "--")
+                                                paths)
+                                        :connection-type 'pipe
+                                        :stderr "sxiv-errors"))))
     (setq sxiv--directory default-directory)
     (set-process-filter proc #'sxiv-filter)))