Re: ISO date in attribution line

[Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann)]

Andreas Fuchs <asf@void.at> writes:

> ,----
> | (defun sc-jk-normalize-date (date)
> |   "Extract the date (day month year) from an RFC 822 message
> | and write it as year-month-day (ISO 8601)"
> |   (let ((date-list (cdr (cdr (cdr (parse-time-string date))))))
> |     (let ((day (pop date-list)))
> |       (let ((month (pop date-list)))
> | 	(let ((year (car date-list)))
> | 	  (and 
> | 	   year month day 
> | 	   (format "%d-%02d-%02d" year month day)))))))
> `----

I get the feeling that doing format-time-string on the result of
parse-time-string would be enough.  Anyone want to try this?

(defun sc-jk-normalize-date (date)
  "..."
  (let ((date (encode-time (parse-time-string date))))
    (format-time-string "..." date)))

kai
-- 
~/.signature is: umop 3p!sdn    (Frank Nobis)