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 9cd89efd9e02a3e02cce195d6869b41cff04eb54..58f620c27fcf48ceab1eee324074035a3e4cbdd8 100644 (file)
--- 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))))