(unrmail): Use current-time-string.

2 files changed, 3 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76b55d3c4aa..bd205450369 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-02-06  Glenn Morris  <rgm@gnu.org>
 
+        * mail/unrmail.el (unrmail): Use current-time-string.
+
         * simple.el (kill-whole-line): Provide a default argument of 1.
 
         * mail/undigest.el (rmail-mail-separator): Delete.
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index bd000deddd2..395e7d2e2e6 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -194,8 +194,7 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
                                   (or
                                    (and date
                                         (ignore-errors
-                                         (format-time-string
-                                          "%a %b %e %T %Y"
+                                         (current-time-string
                                           (date-to-time date))))
                                    (current-time-string))))))