1388 |
|
|
1389 |
(defun nnimap-date-days-ago (daysago) |
(defun nnimap-date-days-ago (daysago) |
1390 |
"Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." |
"Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." |
1391 |
|
(require 'parse-time) |
1392 |
|
(defvar parse-time-months) |
1393 |
(let* ((time (nnimap-time-substract (current-time) (days-to-time daysago))) |
(let* ((time (nnimap-time-substract (current-time) (days-to-time daysago))) |
1394 |
(date (format-time-string |
(date (format-time-string |
1395 |
(format "%%d-%s-%%Y" |
(format "%%d-%s-%%Y" |