summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/messages.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm
index cce2814..23a6752 100644
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -1,5 +1,5 @@
;;; mumi -- Mediocre, uh, mail interface
-;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This program is free software: you can redistribute it and/or
@@ -172,7 +172,8 @@ target file."
(with-output-to-file file-name
(lambda ()
(put-bytevector (current-output-port)
- (get-bytevector-all port))))))
+ (get-bytevector-all port))))
+ (close-port port)))
file-name)))))))
;; We would like to use get-bug-log here, but it often returns