diff options
| -rw-r--r-- | mumi/messages.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 5a14f6a..7a29739 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -316,15 +316,7 @@ of message parts." #:max 50 #:attributes `((package string-prefix "guix") - (@cdate >= ,(let ((this-hour - (date->time-utc (let ((now (current-date))) - (make-date 0 0 0 (date-hour now) - (date-day now) - (date-month now) - (date-year now) 0)))) - (one-month - (make-time time-duration 0 (* 60 60 24 30)))) - (time-second (subtract-duration this-hour one-month))))))) + (@cdate >= ,(time-second (ago 'months 1)))))) (unique (delete-duplicates (filter-map (lambda (item) (assoc-ref item "id")) |