From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Tue, 17 Sep 1991 20:32:04 +0000 (+0000)
Subject: Fixed a bug in rmail-reply.  If there was no Subject: line in the
X-Git-Tag: 20090517-FFI~10205
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8374b144a662d0be6d1445a4ad89e2b7de08d06e;p=mit-scheme.git

Fixed a bug in rmail-reply.  If there was no Subject: line in the
message being replied to, a (string-append "Re: " ()) occurred.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 7255530a5..ace58c99e 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.6 1991/08/27 20:14:27 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.7 1991/09/17 20:32:04 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -894,9 +894,9 @@ original message into it."
 				 (fetch-last-field "resent-subject" start end))
 			    (fetch-first-field "subject" start end))))
 		   (if (ref-variable rmail-reply-with-re)
-		       (if (and subject (string-prefix-ci? "re: " subject))
-			   subject
-			   (string-append "Re: " subject))
+		       (if (and subject (not (string-prefix-ci? "re: " subject)))
+			   (string-append "Re: " subject)
+			   subject)
 		       (if (and subject (string-prefix-ci? "re: " subject))
 			   (string-tail subject 4)
 			   subject)))
@@ -1954,4 +1954,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))
\ No newline at end of file
+  (string-append "\n\037" babyl-initial-message-start))