From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Tue, 27 Aug 1991 20:14:27 +0000 (+0000)
Subject: Added variable rmail-reply-with-re and support in
X-Git-Tag: 20090517-FFI~10285
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=37076f2d9db5eabe9fa8d2104620836ea083a769;p=mit-scheme.git

Added variable rmail-reply-with-re and support in
rmail-reply for adding the Re: to subject lines in replies.
---

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