diff options
| -rw-r--r-- | mumi/messages.scm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 63f68df..805a518 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -174,7 +174,22 @@ target file." (lambda () (put-bytevector (current-output-port) (get-bytevector-all port)))) - (close-port 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)))))) file-name))))))) ;; We would like to use get-bug-log here, but it often returns |