From 8374b144a662d0be6d1445a4ad89e2b7de08d06e Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Tue, 17 Sep 1991 20:32:04 +0000 Subject: [PATCH] Fixed a bug in rmail-reply. If there was no Subject: line in the message being replied to, a (string-append "Re: " ()) occurred. --- v7/src/edwin/rmail.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)) -- 2.25.1