These don't appear to actually show up as mailers commonly format them:

e.g.:

Cc:     [EMAIL PROTECTED], [EMAIL PROTECTED]
From:   Olaf Dietsche <olaf.dietsche#[EMAIL PROTECTED]>
To:     Chris Wedgwood <[EMAIL PROTECTED]>
Subject: Re: [PATCH] 2.5.47: strdup()
Date:   Sun, 17 Nov 2002 02:37:27 +0100

The implementation in Time.lhs appears to follow the RFC to the letter,
which doesn't match current practice.

The following appears to match current practice somewhat more closely:

genDate =
        do
                t <- getClockTime
                c <- toCalendarTime t
                let gmtOff = ctTZ c `div` 36
                let gmtSgn = gmtOff >= 0
                let gmtAbs = abs gmtOff
                let hrStr = (if gmtOff < 0 then "-" else "+") ++ (if gmtAbs < 10
00 then "0" else "") ++ show gmtAbs
                return $ (formatCalendarTime defaultTimeLocale "%a, %_d %b %Y %H
:%M:%S " c) ++ hrStr

_______________________________________________
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell

Reply via email to