From c90e0582a052ccc1abe2533f2ebe58c353788b04 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 1 Jan 2000 17:05:37 +0000 Subject: [PATCH] Fix Y2K bug! --- v7/src/edwin/rmail.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1