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

---
 v7/src/imail/imail-top.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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.
-- 
2.25.1