From b1a6c92f249aa492f8ca5865ec1a50dc336267bb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 22:38:02 +0000
Subject: [PATCH] Add GLOBAL-MAILER-VERSION-STRING.

---
 v7/src/edwin/edwin.pkg    | 3 ++-
 v7/src/edwin/sendmail.scm | 8 ++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index c47c6cd06..00d7aeb5f 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.262 2000/06/15 20:30:45 cph Exp $
+$Id: edwin.pkg,v 1.263 2000/07/05 22:38:02 cph Exp $
 
 Copyright (c) 1989-2000 Massachusetts Institute of Technology
 
@@ -1498,6 +1498,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  edwin-variable$smtp-trace
 	  edwin-variable$user-mail-address
 	  enable-buffer-mime-processing!
+	  global-mailer-version-string
 	  mail-field-end
 	  mail-field-end!
 	  mail-field-region
diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index d653f826b..9ec6a956f 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.64 2000/06/30 19:07:55 cph Exp $
+;;; $Id: sendmail.scm,v 1.65 2000/07/05 22:37:58 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -704,10 +704,14 @@ the user from the mailer."
 			     (get-subsystem-version-string "edwin")
 			     "; MIT-Scheme/"
 			     (get-subsystem-version-string "release")))
-	     (method (buffer-get buffer 'MAILER-VERSION-STRING #f)))
+	     (method
+	      (or (buffer-get buffer 'MAILER-VERSION-STRING #f)
+		  global-mailer-version-string)))
 	 (if method
 	     (method generic)
 	     generic))))
+
+(define global-mailer-version-string #f)
 
 (define (send-mail-buffer mail-buffer lookup-buffer)
   (let ((error-buffer
-- 
2.25.1