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 7255530a5c289cd3ec142d7b1d62c2332d160041..ace58c99ea562b5c41ff785ef7d983c1b490eee8 100644 (file)
--- 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))