From 9f66dbc6231e2a884f76fa9913a0461887476116 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 31 Mar 2020 10:32:59 +0200 Subject: [PATCH] messages: download-message: Reset mtime. --- mumi/messages.scm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) 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 -- 2.36.1