Fix bug: code to find unix mail messages appended to end of RMAIL file

was failing due to incorrect regular expression.

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 940c3524f4d621e50e7278fe1c64bad9ae27ba96..2efdc961328a95708bf3ac1fb154762497e9ce95 100644 (file)
--- 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)