mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 11:20:41 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-float-time): New function.

Browse source 
(gnus-user-date): Use gnus-float-time.
This commit is contained in:
Glenn Morris 2009-09-02 03:27:14 +00:00
parent c62cc3ac0c
commit feefd9f3dd
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus-util.el
View file

@ -285,6 +285,12 @@ Symbols are also allowed; their print names are used instead."
(and (= (car fdate) (car date))
(> (nth 1 fdate) (nth 1 date))))))
(defun gnus-float-time (time)
"Convert time value TIME to a floating point number."
(if (featurep 'xemacs)
(time-to-seconds time)
(float-time time)))
;;; Keymap macros.
(defmacro gnus-local-set-keys (&rest plist)
@ -443,8 +449,8 @@ respectively.")
Returns \" ? \" if there's bad input or if an other error occurs.
Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"."
(condition-case ()
(let* ((messy-date (time-to-seconds (safe-date-to-time messy-date)))
(now (time-to-seconds (current-time)))
(let* ((messy-date (gnus-float-time (safe-date-to-time messy-date)))
(now (gnus-float-time (current-time)))
;;If we don't find something suitable we'll use this one
(my-format "%b %d '%y"))
(let* ((difference (- now messy-date))