From 7a137145196a954ef6aadb897d6b33b2ef2a52c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Jun 2000 19:29:04 +0000
Subject: [PATCH] Preserve internal time when copying to rmail folder from any
 other type of folder, by writing a distinguished header field into the rmail
 file.

---
 v7/src/imail/imail-file.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 9cd89efd9..58f620c27 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.47 2000/06/20 19:48:46 cph Exp $
+;;; $Id: imail-file.scm,v 1.48 2000/06/23 19:29:04 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -289,7 +289,10 @@
      (string-length (file-message-body message))))
 
 (define-method message-internal-time ((message <file-message>))
-  (let loop ((headers (get-all-header-fields message "received")) (winner #f))
+  (header-fields->internal-time headers))
+
+(define (header-fields->internal-time headers)
+  (let loop ((headers (get-all-header-fields headers "received")) (winner #f))
     (if (pair? headers)
 	(loop (cdr headers)
 	      (let ((time (received-header-time (car headers))))
-- 
2.25.1