From 36c7a3f649c91c41e3f959129f28bdc8b113c129 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 13 Feb 1996 00:02:45 +0000
Subject: [PATCH] Fix bug: code to find unix mail messages appended to end of
RMAIL file was failing due to incorrect regular expression.
---
v7/src/edwin/rmail.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 940c3524f..2efdc9613 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,8 +1,8 @@
;;; -*-Scheme-*-
;;;
-;;; $Id: rmail.scm,v 1.46 1995/10/12 23:12:17 cph Exp $
+;;; $Id: rmail.scm,v 1.47 1996/02/13 00:02:45 cph Exp $
;;;
-;;; Copyright (c) 1991-95 Massachusetts Institute of Technology
+;;; Copyright (c) 1991-96 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
@@ -230,7 +230,7 @@ together with two commands to return to regular RMAIL:
"\\>")))
(if (not umail-message-end-regexp)
(set! umail-message-end-regexp
- (string-append "\\("
+ (string-append "\\(^"
umail-message-start-regexp
"\\|"
mmdf-message-start-regexp
@@ -2210,7 +2210,7 @@ Leaves original message, deleted, before the undigestified messages."
;;;; 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]\\|\\) 19\\([0-9]*\\) *\\(remote from .*\\)?$")
(define umail-message-end-regexp
false)
--
2.25.1