From: Chris Hanson Date: Sat, 1 Jan 2000 17:05:37 +0000 (+0000) Subject: Fix Y2K bug! X-Git-Tag: 20090517-FFI~4384 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c90e0582a052ccc1abe2533f2ebe58c353788b04;p=mit-scheme.git Fix Y2K bug! --- diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm index 5ef139b52..676e1e1ef 100644 --- a/v7/src/edwin/rmail.scm +++ b/v7/src/edwin/rmail.scm @@ -1,8 +1,8 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: rmail.scm,v 1.64 1999/08/20 20:34:24 cph Exp $ +;;; $Id: rmail.scm,v 1.65 2000/01/01 17:05:37 cph Exp $ ;;; -;;; Copyright (c) 1991-1999 Massachusetts Institute of Technology +;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -2321,7 +2321,7 @@ Completion is performed over known labels when reading." ;;;; Constants (define umail-message-start-regexp - "From \\([^ \n]*\\(\\|\".*\"[^ \n]*\\)\\) ?\\([^ \n]*\\) \\([^ \n]*\\) *\\([0-9]*\\) \\([0-9:]*\\)\\( ?[A-Z]?[A-Z][A-Z]T\\| ?[-+]?[0-9][0-9][0-9][0-9]\\|\\) 19\\([0-9]*\\) *\\(remote from .*\\)?$") + "From \\([^ \n]*\\(\\|\".*\"[^ \n]*\\)\\) ?\\([^ \n]*\\) \\([^ \n]*\\) *\\([0-9]*\\) \\([0-9:]*\\)\\( ?[A-Z]?[A-Z][A-Z]T\\| ?[-+]?[0-9][0-9][0-9][0-9]\\|\\) \\([1-9][0-9][0-9][0-9]\\) *\\(remote from .*\\)?$") (define umail-message-end-regexp false)