diff options
| -rwxr-xr-x | bin/tagmail | 7 |
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))))) |