master d11e34ce76 3/7: Default mbox "From " time zone to -0000

[Paul Eggert]

branch: master
commit d11e34ce76aac8680337f247419657e042e4cf34
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Default mbox "From " time zone to -0000
    
    * lisp/mail/rmailout.el (rmail-nuke-pinhead-header):
    Default the time zone to "-0000" instead of "EST", as "-0000" is
    the RFC-2822-and-later standard for unknown time zones.
---
 lisp/mail/rmailout.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index c1371308d4..18f980df97 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -327,15 +327,14 @@ Replaces the From line with a \"Mail-from\" header.  Adds 
\"Date\" and
                     "Date: \\2, \\4 \\3 \\9 \\5 "
 
                     ;; The timezone could be matched by group 7 or group 10.
-                    ;; If neither of them matched, assume EST, since only
-                    ;; Easterners would be so sloppy.
+                    ;; If neither matched, use "-0000" for an unknown zone.
                     ;; It's a shame the substitution can't use "\\10".
                     (cond
                      ((/= (match-beginning 7) (match-end 7)) "\\7")
                      ((/= (match-beginning 10) (match-end 10))
                       (buffer-substring (match-beginning 10)
                                         (match-end 10)))
-                     (t "EST"))
+                     (t "-0000"))
                     "\n"))
                  ;; Keep and reformat the sender if we don't
                  ;; have a From: field.