(lambda ()
(put-bytevector (current-output-port)
(get-bytevector-all port))))
- (close-port port)
-
- ;; Reset mtime, because mu uses it!
- (with-input-from-file file-name
- (lambda ()
- (match (mbox->emails (current-input-port))
- ((email)
- (let* ((mail (parse-email email))
- (seconds
- (time-second
- (date->time-monotonic
- (date mail)))))
- (utime file-name
- seconds
- seconds)))
- (_ #f))))))
+ (close-port port)))
file-name)))))))
;; We would like to use get-bug-log here, but it often returns