From 51d83c17cefce63812abbabd8d3232ec4f9e0ae7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 11 Sep 2000 21:50:03 +0000 Subject: [PATCH] Compensate for old message data format that lacked seconds. --- v7/src/runtime/datime.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm index da5c21f03..1005acb36 100644 --- a/v7/src/runtime/datime.scm +++ b/v7/src/runtime/datime.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: datime.scm,v 14.31 2000/09/11 21:45:15 cph Exp $ +$Id: datime.scm,v 14.32 2000/09/11 21:50:03 cph Exp $ Copyright (c) 1988-2000 Massachusetts Institute of Technology @@ -244,7 +244,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (list (car tokens) (cadr tokens) (caddr tokens) - (string-append (car tokens*) ":00") + (car tokens*) (cadr tokens*)) (lose)))) ((5) tokens) @@ -257,9 +257,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (lose))) (else (lose)))))) (let ((time (burst-string (list-ref tokens 3) #\: #f))) - (if (not (fix:= 3 (length time))) + (if (not (memv (length time) '(2 3))) (error "Ill-formed RFC-822 time string:" string)) - (make-decoded-time (string->number (caddr time)) + (make-decoded-time (if (pair? (cddr time)) + (string->number (caddr time)) + 0) (string->number (cadr time)) (string->number (car time)) (string->number (list-ref tokens 0)) -- 2.25.1