Re: Statistics'R'Us

[Lars Magne Ingebrigtsen <larsi@ifi.uio.no>]

visigoth@naiad.fac.cs.cmu.edu writes:

> That doesn't mean that many faithful Gnus users aren't vampires.  <grin>
> 
> (So, Lars, was it based on your local time, or on the local time of
> the sender?)

Uhm...  I asked myself the same question two minutes after sending off
the stats, and I don't quite know.  :-)  Let's see:

(nnmail-date-to-time "21 Jan 1997 14:55:57 -0500")
=> (13028 56049)

(format-time-string "%k" '(13028 56049))
=> "16"

Uh.

(format-time-string "%d %m %y %T" '(13028 56049))
=> "21 01 97 16:04:17"

Uh.

Perhaps `nnmail-date-to-time' is buggy?

(current-time-string)
=> "Wed Jan 22 00:04:21 1997"

(current-time-string (nnmail-date-to-time (current-time-string)))
=> "Wed Jan 22 00:04:34 1997"

No, looks ok...

Uh.  Let's see.  When it's 14 at your house, it's 20 at mine.  Which
isn't 16 anywhere, except in the Atlantic ocean somewhere.

Here's the definition of `nnmail-date-to-time':

(defun nnmail-date-to-time (date)
  "Convert DATE into time."
  (condition-case ()
      (let* ((d1 (timezone-parse-date date))
	     (t1 (timezone-parse-time (aref d1 3))))
	(apply 'encode-time
	       (mapcar (lambda (el)
			 (and el (string-to-number el)))
		       (list
			(aref t1 2) (aref t1 1) (aref t1 0)
			(aref d1 2) (aref d1 1) (aref d1 0)
			(aref d1 4)))))
    ;; If we get an error, then we just return a 0 time.
    (error (list 0 0))))

What's wrong here?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen