# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233649233 0
# Node ID 60634423f085cd13624731749a75e06964e85444
# Parent  dab601ced3e681d14889706c1f2dd5f9d0f17a5b
Tweak previous change.

diff -r dab601ced3e6 -r 60634423f085 lisp/mail/unrmail.el
--- a/lisp/mail/unrmail.el	Tue Feb 03 08:09:03 2009 +0000
+++ b/lisp/mail/unrmail.el	Tue Feb 03 08:20:33 2009 +0000
@@ -193,11 +193,10 @@
 				(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.