From f329116d423555c5115d75be16ae919dddc40f29 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 9 Apr 1995 23:09:19 +0000 Subject: [PATCH] Patch two bugs. --- 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 0ce77a93d..bc1d97218 100644 --- a/v7/src/edwin/rmail.scm +++ b/v7/src/edwin/rmail.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: rmail.scm,v 1.35 1995/04/09 23:07:05 cph Exp $ +;;; $Id: rmail.scm,v 1.36 1995/04/09 23:09:19 cph Exp $ ;;; ;;; Copyright (c) 1991-95 Massachusetts Institute of Technology ;;; @@ -240,7 +240,7 @@ together with two commands to return to regular RMAIL: end))) (let ((start (search-forward "\nMail:" start end true))) (if start - (parse-comma-list start end) + (parse-comma-list start (line-end start 0)) '()))) '()))) @@ -473,7 +473,7 @@ and use that file as the inbox." (rename-inbox-using-rename source insert)))))) (define (rename-inbox-using-rename source insert) - (let ((target (string-append (->namestring source) "~"))) + (let ((target (string-append (->namestring source) "+"))) (let ((msg (string-append "Getting mail from " (->namestring source) @@ -2048,4 +2048,4 @@ Note: it means the file has no messages in it.\n\037") "\n*\n\n----------------------------*\n*") (define digest-separator-replacement - (string-append "\n\037" babyl-initial-message-start)) + (string-append "\n\037" babyl-initial-message-start)) \ No newline at end of file -- 2.25.1