X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnimap.el;h=12f9ef8c861d66c7da59b008b18f4f6953fd7014;hp=2b969f8723c40daed7ad5176c40f9c1cb470bf6b;hb=c7e1791dc423f18fde3a940c1d2f93f6b11899b2;hpb=0c5e1e13f9046c2986edfed81dbb53b223a838f8 diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 2b969f872..12f9ef8c8 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -1442,10 +1442,10 @@ function is generally only called when Gnus is shutting down." (list (- ms 1) (+ (expt 2 16) ls)) (list ms ls)))) +(eval-when-compile (require 'parse-time)) (defun nnimap-date-days-ago (daysago) "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." (require 'parse-time) - (defvar parse-time-months) (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago))) (date (format-time-string (format "%%d-%s-%%Y"