1 files changed, 4 insertions, 5 deletions

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 8fb15f1813c..bd000deddd2 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -193,11 +193,10 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
                                 (let ((date (mail-fetch-field "date")))
                                   (or
                                    (and date
-                                        (setq date
-                                              (ignore-errors
-                                               (format-time-string
-                                                "%a %b %e %T %Y"
-                                                (date-to-time date)))))
+                                        (ignore-errors
+                                         (format-time-string
+                                          "%a %b %e %T %Y"
+                                          (date-to-time date))))
                                    (current-time-string))))))
 
               ;; If the message specifies a coding system, use it.