From d11e34ce76aac8680337f247419657e042e4cf34 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 29 Dec 2022 21:27:45 -0800 Subject: [PATCH 2/6] 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 @@ rmail-nuke-pinhead-header "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. -- 2.38.1