From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/24845 Path: main.gmane.org!not-for-mail From: Lars Magne Ingebrigtsen Newsgroups: gmane.emacs.gnus.general Subject: Re: Time zone and 'lapsed under NT Date: 27 Aug 1999 19:57:20 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035162342 10990 80.91.224.250 (21 Oct 2002 01:05:42 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:05:42 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id NAA07878 for ; Fri, 27 Aug 1999 13:57:07 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id MAB23166; Fri, 27 Aug 1999 12:56:16 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 27 Aug 1999 12:56:47 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id MAA10936 for ; Fri, 27 Aug 1999 12:56:24 -0500 (CDT) Original-Received: from quimbies.gnus.org (bang.netfonds.no [195.1.89.231]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id NAA07802 for ; Fri, 27 Aug 1999 13:55:26 -0400 (EDT) Original-Received: (from larsi@localhost) by quimbies.gnus.org (8.8.7/8.8.7) id TAA08375; Fri, 27 Aug 1999 19:57:57 +0200 Mail-Copies-To: never X-Now-Reading: Robert Bringhurst's _The Elements of Typographic Style_ X-Now-Playing: Bob Hund's _Jag rear ut min =?iso-8859-1?q?sj=E4l!?= Allt skall bort!!!_: "Raketmaskinen" Original-To: ding@gnus.org In-Reply-To: Toby Speight's message of "15 Jul 1999 11:55:42 +0000" User-Agent: Gnus/5.070097 (Pterodactyl Gnus v0.97) XEmacs/21.2 (Sumida) X-Face: &w!^oO~dS|}-P0~ge{$c!h\ writes: > 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. I don't think this will work correctly on non-NT platforms... -- (domestic pets only, the antidote for overdose, milk.) larsi@gnus.org * Lars Magne Ingebrigtsen