From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Mar 2001 19:29:48 +0000 (+0000)
Subject: Move MESSAGE-TIME into core.
X-Git-Tag: 20090517-FFI~2894
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bfb5fe4945c8b438ae5e448fa847e03c3d336436;p=mit-scheme.git

Move MESSAGE-TIME into core.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index a43441fa3..fdf3a379b 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.117 2001/01/24 22:51:43 cph Exp $
+;;; $Id: imail-core.scm,v 1.118 2001/03/19 19:29:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -16,7 +16,8 @@
 ;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;;; 02111-1307, USA.
 
 ;;;; IMAIL mail reader: core definitions
 
@@ -486,6 +487,11 @@
     (lambda (port)
       (write-header-fields (message-header-fields message) port)
       (write-message-body message port))))
+
+(define (message-time message)
+  (let ((date (get-first-header-field-value message "date" #f)))
+    (and date
+	 (parse-header-field-date date))))
 
 ;;;; Message Navigation
 
diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index cbb22628c..ffa5cb6ac 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.80 2001/01/06 05:49:02 cph Exp $
+;;; $Id: imail.pkg,v 1.81 2001/03/19 19:29:45 cph Exp $
 ;;;
 ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
 ;;;
@@ -119,8 +119,7 @@
 	  file-folder-pathname
 	  file-folder?
 	  file-message?
-	  file-url?
-	  message-time))
+	  file-url?))
 
 (define-package (edwin imail file-folder rmail-folder)
   (files "imail-rmail")