Patch two bugs.

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 0ce77a93d0991d8564e2215f02a7f3c4f1afc269..bc1d97218faa3bcd91e06fa3b20a508bdc063056 100644 (file)
--- 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