From 24bb25c2b05e5c62969493dc37a492f101e89fca Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Mon, 17 Feb 1992 22:10:28 +0000
Subject: [PATCH] If you used mail-and-load-notify, on rmail-get-new-mail your
 entire notify string got set to "".  This has been fixed.

---
 v7/src/edwin/notify.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/notify.scm b/v7/src/edwin/notify.scm
index cdcd82b16..7a48af9fa 100644
--- a/v7/src/edwin/notify.scm
+++ b/v7/src/edwin/notify.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/notify.scm,v 1.1 1992/02/14 22:29:49 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/notify.scm,v 1.2 1992/02/17 22:10:28 bal Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -87,13 +87,17 @@
 
 (define mail-notify-hook-installed? false)
 
-(define (install-mail-notify-hook!)
+(define (install-mail-notify-hook! load-notify?)
   (if (not mail-notify-hook-installed?)
       (begin
        (add-event-receiver!
 	(ref-variable rmail-new-mail-hook)
 	(lambda ()
-	  (set-variable! notify-string mail-not-present-string)
+	  (set-variable! 
+	   notify-string 
+	   (if load-notify?
+	       (string-append (get-load-average-string) mail-not-present-string)
+	       mail-not-present-string))
 	  (global-window-modeline-event!)
 	  (update-screens! false)))
        (set! mail-notify-hook-installed? true))))
@@ -121,7 +125,7 @@
        thread))))
 
 (define (mail-notify)
-  (install-mail-notify-hook!)
+  (install-mail-notify-hook! false)
   (start-notifier 
    (make-notifier
     (lambda ()
@@ -130,7 +134,7 @@
 	  mail-not-present-string)))))
 
 (define (mail-and-load-notify)
-  (install-mail-notify-hook!)
+  (install-mail-notify-hook! true)
   (start-notifier
    (make-notifier
     (lambda ()
-- 
2.25.1