use format

1 files changed, 3 insertions, 4 deletions

diff --git a/bin/tagmail b/bin/tagmail
index 5857c6f..fa6d6a4 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -41,10 +41,9 @@
              (let ((subject (nm-header message* "subject"))
                    (files (nm-iter filenames (notmuch_message_get_filenames message*)
                                    pointer->string)))
-               (display (string-append
-                         (pcmd dry-run (format #f " [~a] " proc-name))
-                         subject
-                         "\n"))
+               (simple-format #t "~a~a~%"
+                              (pcmd dry-run (simple-format #f " [~a] " proc-name))
+                              subject)
                (unless dry-run
                  (map proc files))
                (list subject files)))))