diff options
| 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 |
| commit | ab024cbc16a629c9a29d61807e506a020f6984d3 (patch) | |
| tree | 2ac939f88964ece5e1a7687c8c66b4b8e2d97f4f /bin/tagmail | |
| parent | d30277b0dcaf111985b7f196588fbcd436548047 (diff) | |
| download | dotfiles-ab024cbc16a629c9a29d61807e506a020f6984d3.tar.gz dotfiles-ab024cbc16a629c9a29d61807e506a020f6984d3.tar.bz2 dotfiles-ab024cbc16a629c9a29d61807e506a020f6984d3.zip | |
use format
Diffstat (limited to 'bin/tagmail')
| -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))))) |