From 37076f2d9db5eabe9fa8d2104620836ea083a769 Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Tue, 27 Aug 1991 20:14:27 +0000 Subject: [PATCH] Added variable rmail-reply-with-re and support in rmail-reply for adding the Re: to subject lines in replies. --- v7/src/edwin/rmail.scm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm index 472ef833d..7255530a5 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.5 1991/05/16 17:47:23 hal Exp $ +;;; $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 $ ;;; ;;; Copyright (c) 1991 Massachusetts Institute of Technology ;;; @@ -107,6 +107,11 @@ Called with the start and end marks of the header as arguments." false boolean?) +(define-variable rmail-reply-with-re + "True means prepend subject with Re: in replies." + false + boolean?) + (define-variable rmail-mode-hook "An event distributor that is invoked when entering RMAIL mode." (make-event-distributor)) @@ -888,9 +893,13 @@ original message into it." (or (and resent-reply-to (fetch-last-field "resent-subject" start end)) (fetch-first-field "subject" start end)))) - (if (and subject (string-prefix-ci? "re: " subject)) - (string-tail subject 4) - subject)) + (if (ref-variable rmail-reply-with-re) + (if (and subject (string-prefix-ci? "re: " subject)) + subject + (string-append "Re: " subject)) + (if (and subject (string-prefix-ci? "re: " subject)) + (string-tail subject 4) + subject))) (if resent-reply-to (make-in-reply-to-field from -- 2.25.1