Mercurial > emacs
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"))) |