diff options
| -rw-r--r-- | lisp/mail/unrmail.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 8fb15f1813..bd000deddd 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. |