Mercurial > emacs
comparison lisp/gnus/nnimap.el @ 61463:f09e8d159baf
(nnimap-date-days-ago): Handle byte-compiler warnings differently.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Mon, 11 Apr 2005 16:10:48 +0000 |
| parents | a1964e18a9ba |
| children | f02351c457a6 146c086df160 |
comparison
equal
deleted
inserted
replaced
| 61462:7296705f27fd | 61463:f09e8d159baf |
|---|---|
| 1384 (ls (- (nth 1 time1) (nth 1 time2)))) | 1384 (ls (- (nth 1 time1) (nth 1 time2)))) |
| 1385 (if (< ls 0) | 1385 (if (< ls 0) |
| 1386 (list (- ms 1) (+ (expt 2 16) ls)) | 1386 (list (- ms 1) (+ (expt 2 16) ls)) |
| 1387 (list ms ls)))) | 1387 (list ms ls)))) |
| 1388 | 1388 |
| 1389 (eval-when-compile (require 'parse-time)) | |
| 1389 (defun nnimap-date-days-ago (daysago) | 1390 (defun nnimap-date-days-ago (daysago) |
| 1390 "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." | 1391 "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago." |
| 1391 (require 'parse-time) | 1392 (require 'parse-time) |
| 1392 (defvar parse-time-months) | |
| 1393 (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago))) | 1393 (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago))) |
| 1394 (date (format-time-string | 1394 (date (format-time-string |
| 1395 (format "%%d-%s-%%Y" | 1395 (format "%%d-%s-%%Y" |
| 1396 (capitalize (car (rassoc (nth 4 (decode-time time)) | 1396 (capitalize (car (rassoc (nth 4 (decode-time time)) |
| 1397 parse-time-months)))) | 1397 parse-time-months)))) |