Mercurial > emacs

comparison lisp/gnus/gnus-util.el @ 104806:409fc58fd03d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Pass no argument to gnus-float-time rather than current-time.
author Glenn Morris <rgm@gnu.org>
date Wed, 02 Sep 2009 06:38:07 +0000
parents 6a1f7b318ddf
children 18c2aea5083c
comparison
equal deleted inserted replaced
104805:6f8c7d01dcef 104806:409fc58fd03d
449 "Format the messy-date according to gnus-user-date-format-alist. 449 "Format the messy-date according to gnus-user-date-format-alist.
450 Returns \" ? \" if there's bad input or if an other error occurs. 450 Returns \" ? \" if there's bad input or if an other error occurs.
451 Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"." 451 Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"."
452 (condition-case () 452 (condition-case ()
453 (let* ((messy-date (gnus-float-time (safe-date-to-time messy-date))) 453 (let* ((messy-date (gnus-float-time (safe-date-to-time messy-date)))
454 (now (gnus-float-time (current-time))) 454 (now (gnus-float-time))
455 ;;If we don't find something suitable we'll use this one 455 ;;If we don't find something suitable we'll use this one
456 (my-format "%b %d '%y")) 456 (my-format "%b %d '%y"))
457 (let* ((difference (- now messy-date)) 457 (let* ((difference (- now messy-date))
458 (templist gnus-user-date-format-alist) 458 (templist gnus-user-date-format-alist)
459 (top (eval (caar templist)))) 459 (top (eval (caar templist))))