From feefd9f3ddfd06ecadec89580aab9c247c9cfe3d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Sep 2009 03:27:14 +0000 Subject: [PATCH] (gnus-float-time): New function. (gnus-user-date): Use gnus-float-time. --- lisp/gnus/gnus-util.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 3827bc17c5d..788fa16cb0d 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -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)) -- 2.39.5