Replace unix/current-file-time with get-time.

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 2b7a9177664112ca5d8c4ee2b4336346076af50b..a4b50a7d823167110c11a71e7ceecd54cedfddc8 100644 (file)
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: rmail.scm,v 1.26 1992/11/20 19:00:43 bal Exp $
+;;;    $Id: rmail.scm,v 1.27 1993/01/12 19:05:06 gjr Exp $
 ;;;
-;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
+;;;    Copyright (c) 1991-1993 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -1360,7 +1360,7 @@ buffer visiting that file."
                     (fetch-first-field "from" start (header-end start end)))
                    "unknown")
                " "
-               (unix/file-time->string (unix/current-file-time))
+               (unix/file-time->string (get-time))
                "\n")
               start)))
          (append-to-file (buffer-region buffer) pathname false)

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 500e67359e68bc05305213e0053bf1813527e4b5..9f3352f764967883dfc6cdace84279ea36b9d37c 100644 (file)
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: sendmail.scm,v 1.17 1992/11/17 17:50:18 cph Exp $
+;;;    $Id: sendmail.scm,v 1.18 1993/01/12 19:05:30 gjr Exp $
 ;;;
-;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
+;;;    Copyright (c) 1991-1993 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -525,7 +525,7 @@ Numeric argument means justify as well."
       (insert-string "From " end)
       (insert-string (unix/current-user-name) end)
       (insert-string " " end)
-      (insert-string (unix/file-time->string (unix/current-file-time)) end)
+      (insert-string (unix/file-time->string (get-time)) end)
       (insert-newline end)
       (insert-region (buffer-start mail-buffer)
                     (buffer-end mail-buffer)