(nnmail-date-to-time): Use current timezone if `date' does not contain

timezone info.

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index bc8d1f5..eb068b5 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -532,7 +532,8 @@ parameter.  It should return nil, `warn' or `delete'."
                        (aref t1 2) (aref t1 1) (aref t1 0)
                        (aref d1 2) (aref d1 1) (aref d1 0)
                        (number-to-string
-                        (* 60 (timezone-zone-to-minute (aref d1 4))))))))
+                        (* 60 (timezone-zone-to-minute
+                               (or (aref d1 4) (current-time-zone)))))))))
     ;; If we get an error, then we just return a 0 time.
     (error (list 0 0))))