From ab024cbc16a629c9a29d61807e506a020f6984d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Mon, 4 Jan 2021 13:54:32 +0100 Subject: use format --- bin/tagmail | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'bin/tagmail') 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))))) -- cgit v1.2.3