diff options
-rw-r--r-- | mumi/messages.scm | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index ed7e5f3..a7d62dc 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -175,22 +175,7 @@ target file." (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 |