aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbin/tagmail7
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)))))