Move MESSAGE-TIME into core.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index a43441fa3ca9dfa323751aa08bf354a78070da82..fdf3a379bff3a3aca28247ff72aa4436c605289b 100644 (file)
--- 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))))
 \f
 ;;;; Message Navigation
 

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index cbb22628c713c2cc6f7e210ffb1086fd77132fd9..ffa5cb6ac8bda3c8dfc92a14fb7e19c296f9e963 100644 (file)
--- 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")