# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742067728 0
# Node ID 5a8ed60f39f2e7426bc47349a507ee19812295fa
# Parent  a35cd533fda40dfd2679c7120c03be1a4c47016c
(mail-do-fcc): Use RFC 822 style date in Resent-Date: line.
Use new `mail-rfc822-time-zone' function to simplify pinhead generation.

diff -r a35cd533fda4 -r 5a8ed60f39f2 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Wed Jul 07 17:54:20 1993 +0000
+++ b/lisp/mail/sendmail.el	Wed Jul 07 17:55:28 1993 +0000
@@ -422,7 +422,6 @@
   (let (fcc-list
 	(rmailbuf (current-buffer))
 	(time (current-time))
-	timezone
 	(tembuf (generate-new-buffer " rmail output"))
 	(case-fold-search t))
     (save-excursion
@@ -436,13 +435,6 @@
 			     fcc-list))
 	(delete-region (match-beginning 0)
 		       (progn (forward-line 1) (point))))
-      (let* ((foo (current-time-zone time))
-	     (offset (if (car foo) (/ (car foo) 60) 0))
-	     (abs (abs offset)))
-	(setq timezone (format "%s%02d%02d"
-			       (if (< offset 0) "-" "+")
-			       (/ abs 60)
-			       (% abs 60))))
       (set-buffer tembuf)
       (erase-buffer)
       ;; This initial newline is written out if the fcc file already exists.
@@ -451,7 +443,8 @@
       ;; Insert the time zone before the year.
       (forward-char -1)
       (forward-word -1)
-      (insert timezone " ")
+      (require 'mail-utils)
+      (insert (mail-rfc822-time-zone time) " ")
       (goto-char (point-max))
       (insert-buffer-substring rmailbuf)
       ;; Make sure messages are separated.
@@ -493,7 +486,7 @@
 				(narrow-to-region (point-max) (point-max))
 				(insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
 					"From: " (user-login-name) "\n"
-					"Date: " (current-time-string) "\n")
+					"Date: " (mail-rfc822-date) "\n")
 				(insert-buffer-substring curbuf beg2 end)
 				(insert "\n\C-_")
 				(goto-char (point-min))