From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 22:38:51 +0000 (+0000)
Subject: Use new GLOBAL-MAILER-VERSION-STRING.
X-Git-Tag: 20090517-FFI~3376
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f0c5960eb4ca4dfb907271cc79f61768448188d1;p=mit-scheme.git

Use new GLOBAL-MAILER-VERSION-STRING.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 38b2705b0..0d84a05b8 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.208 2000/07/05 18:07:04 cph Exp $
+;;; $Id: imail-top.scm,v 1.209 2000/07/05 22:38:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1037,6 +1037,9 @@ While composing the reply, use \\[mail-yank-original] to yank the
 (define (imail-mailer-version-string generic)
   (string-append "IMAIL/" (get-subsystem-version-string "IMAIL")
 		 "; " generic))
+
+(if (not global-mailer-version-string)
+    (set! global-mailer-version-string imail-mailer-version-string))
 
 (define-command imail-forward
   "Forward the current message to another user.