jflack
/
gnus-search-mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Properly format dates as ISO YYYY-MM-DD HH:MM:SS

This commit is contained in:
Jai Flack 2022-03-24 23:27:33 +10:00
parent 3b4476ab68
commit ed2d9f6348
No known key found for this signature in database
GPG Key ID: B0073AB365D0807D
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnus-search-mu.el
View File

@ -140,12 +140,19 @@ This can also be set per-server."
(nth (1- m) gnus-english-month-names))
(`(nil nil ,y)
(number-to-string y))
;; mu prefers ISO date YYYY-MM-DD HH:MM:SS
(`(,d ,m nil)
(format "%02d-%02d" d m))
(let* ((ct (decode-time))
(cm (decoded-time-month ct))
(cy (decoded-time-year ct))
(y (if (> cm m)
cy
(1- cy))))
(format "%d-%02d-%02d" y m d)))
(`(nil ,m ,y)
(format "%02d-%02d" m y))
(format "%d-%02d" y m))
(`(,d ,m ,y)
(format "%d/%d/%d" m d y))))))
(format "%d-%02d-%02d" y m d))))))
(cond
((consp (car expr))
(format "(%s)" (gnus-search-transform engine expr)))