Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 59463afc5666
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
253 "Convert DATE to internal time." 253 "Convert DATE to internal time."
254 (let* ((parse (timezone-parse-date date)) 254 (let* ((parse (timezone-parse-date date))
255 (date (mapcar (lambda (d) (and d (string-to-int d))) parse)) 255 (date (mapcar (lambda (d) (and d (string-to-int d))) parse))
256 (time (mapcar 'string-to-int (timezone-parse-time (aref parse 3))))) 256 (time (mapcar 'string-to-int (timezone-parse-time (aref parse 3)))))
257 (encode-time (caddr time) (cadr time) (car time) 257 (encode-time (caddr time) (cadr time) (car time)
258 (caddr date) (cadr date) (car date) (nth 4 date)))) 258 (caddr date) (cadr date) (car date)
259 (* 60 (timezone-zone-to-minute (nth 4 date))))))
259 260
260 (defun gnus-time-minus (t1 t2) 261 (defun gnus-time-minus (t1 t2)
261 "Subtract two internal times." 262 "Subtract two internal times."
262 (let ((borrow (< (cadr t1) (cadr t2)))) 263 (let ((borrow (< (cadr t1) (cadr t2))))
263 (list (- (car t1) (car t2) (if borrow 1 0)) 264 (list (- (car t1) (car t2) (if borrow 1 0))