From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Jun 2000 19:29:04 +0000 (+0000)
Subject: Preserve internal time when copying to rmail folder from any other
X-Git-Tag: 20090517-FFI~3453
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a137145196a954ef6aadb897d6b33b2ef2a52c7;p=mit-scheme.git

Preserve internal time when copying to rmail folder from any other
type of folder, by writing a distinguished header field into the rmail
file.
---

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))))