From a79ed63d7b2c53c1f360512afa2a68ba311b9554 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 14 Sep 2001 20:44:18 +0000
Subject: [PATCH] Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd
 doesn't.

---
 Changes            | 1 +
 perl/DXLogPrint.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 5bc15e13..98822b09 100644
--- a/Changes
+++ b/Changes
@@ -13,6 +13,7 @@ you probably won't :-)
 will not be allowed to login anymore.
 4. Fiddle with the lockout mechanism so that set/login g1tlh also locks out
 g1tlh-1 -> g1tlh-15 UNLESS one of these is specifically unlocked.
+5. Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd doesn't.
 13Sep01=======================================================================
 1. did some work on making talk more intelligent and fixed a>b problem.
 2. fixed a nasty problem on input when being hit with full buffers of 
diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index ad0b1970..d1ad9dd6 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -46,13 +46,15 @@ sub print
 	    
 	if ($pattern) {
 		$hint = "m{\\Q$pattern\\E}i";
+	} else {
+		$hint = "!m{ann|rcmd|talk}";
 	}
 	if ($who) {
 		if ($hint) {
 			$hint .= ' && ';
 		}
 		$hint .= 'm{\\Q$who\\E}i';
-	}
+	} 
 	$hint = "next unless $hint" if $hint;
 	
 	$eval = qq(
-- 
2.34.1