Add GLOBAL-MAILER-VERSION-STRING.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index c47c6cd06345532f435577cec39572e3cc4bf4f1..00d7aeb5f8873d44bf935c7b8de1ac80ddbeb55f 100644 (file)
--- 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 d653f826b79bf94144dc18929192b714d04e1ebe..9ec6a956f9b595b6340f5868df91be2c7a8e6cb1 100644 (file)
--- 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)
 \f
 (define (send-mail-buffer mail-buffer lookup-buffer)
   (let ((error-buffer