Re: Time zone and 'lapsed under NT

[Toby Speight <Toby.Speight@streapadair.freeserve.co.uk>]

Toby> Toby Speight
Toby> <URL:mailto:Toby.Speight@streapadair.freeserve.co.uk>

0> In <URL:news:uu2r9yasp.fsf@lanber.cam.citrix.com>, Toby wrote:

Toby> (encode-time 0 0 2 1 1 1970 4 '(0) 0)
Toby> => (0 7200)
Toby> (encode-time 0 0 2 1 1 1970 4 '(-18000) -18000)
Toby> => (0 7200)
Toby>
Toby> Looks like that's our bug.  A workaround ought to be possible,
Toby> ...

Here's a workaround: in time-date.el, replace date-to-time with


(defun date-to-time (date)
  "Convert DATE into time."
  (condition-case ()
      (let ((time (parse-time-string date)))
        (setq time (cons (- (car time)
                            (- (or (nth 8 time) 0)
                               (or (car (current-time-zone)) 0)))
                         (cdr time)))
        (setcdr (cdr (cdr (cdr (cdr (cdr time))))) nil)
        (apply 'encode-time time))
    (error (error "Invalid date: %s" date))))


This could do with some testing in other time zones and a regression
test on non-NT platforms, though.

And you need to change article-make-date-line not to use
parse-time-string directly:


     ((eq type 'ut)
      (concat "Date: "
              (current-time-string
               (let* ((e (parse-time-string date))
                     (tm (apply 'encode-time e))
                     (ms (car tm))
                     (ls (- (cadr tm) (car (current-time-zone)))))

becomes

     ((eq type 'ut)
      (concat "Date: "
              (current-time-string
               (let* ((ms (car time))
                      (ls (- (cadr time) (car (current-time-zone)))))



Alternatively, you could make parse-time-string do the stuff I put
into date-to-time.