aboutsummaryrefslogtreecommitdiffstats
path: root/bin/tagmail
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2021-01-04 13:54:32 +0100
committerÓscar Nájera <hi@oscarnajera.com>2021-01-04 13:54:32 +0100
commitab024cbc16a629c9a29d61807e506a020f6984d3 (patch)
tree2ac939f88964ece5e1a7687c8c66b4b8e2d97f4f /bin/tagmail
parentd30277b0dcaf111985b7f196588fbcd436548047 (diff)
downloaddotfiles-ab024cbc16a629c9a29d61807e506a020f6984d3.tar.gz
dotfiles-ab024cbc16a629c9a29d61807e506a020f6984d3.tar.bz2
dotfiles-ab024cbc16a629c9a29d61807e506a020f6984d3.zip
use format
Diffstat (limited to 'bin/tagmail')
-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)))))