comparison lisp/mail/unrmail.el @ 101830:6babeadc07c9

(unrmail): Use current-time-string.
author Glenn Morris <rgm@gnu.org>
date Fri, 06 Feb 2009 07:33:20 +0000
parents 60634423f085
children 1eedc742bd61
comparison
equal deleted inserted replaced
101829:0b38f4f78a98 101830:6babeadc07c9
192 " " 192 " "
193 (let ((date (mail-fetch-field "date"))) 193 (let ((date (mail-fetch-field "date")))
194 (or 194 (or
195 (and date 195 (and date
196 (ignore-errors 196 (ignore-errors
197 (format-time-string 197 (current-time-string
198 "%a %b %e %T %Y"
199 (date-to-time date)))) 198 (date-to-time date))))
200 (current-time-string)))))) 199 (current-time-string))))))
201 200
202 ;; If the message specifies a coding system, use it. 201 ;; If the message specifies a coding system, use it.
203 (let ((maybe-coding (mail-fetch-field "X-Coding-System"))) 202 (let ((maybe-coding (mail-fetch-field "X-Coding-System")))