From e0d308ca059bf8c355c76cef2c79d0a3cb32b826 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 17 Sep 1992 00:26:15 +0000
Subject: [PATCH] Fix broken conditional in notifier. The notify string was not
 being updated at all if the mail notification hook was not installed.

---
 v7/src/edwin/notify.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/edwin/notify.scm b/v7/src/edwin/notify.scm
index 8e89f955d..7530a9112 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.9 1992/08/28 18:44:39 jinx Exp $
+;;;	$Id: notify.scm,v 1.10 1992/09/17 00:26:15 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -184,11 +184,11 @@ which can show various things including time, load average, and mail status."
 				    ((cdr element))
 				    ""))
 			      notifier-elements)))
-  (if mail-notify-hook-installed?
-      (update-notify-string!
-       (if (ref-variable notify-show-mail)
-	   (notifier:mail-present)
-	   "")))
+  (update-notify-string!
+   (if (and mail-notify-hook-installed?
+	    (ref-variable notify-show-mail))
+       (notifier:mail-present)
+       ""))
   true)
 
 (define-command kill-notifier
-- 
2.25.1