From a4de7ad56ba78ac03799e330466e9f971b7bb39f Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sat, 9 May 2009 22:04:00 +0200
Subject: [PATCH] Don't allow pm replies to be sent to channel

---
 Misc.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Misc.pm b/Misc.pm
index 74159ac..bd15993 100644
--- a/Misc.pm
+++ b/Misc.pm
@@ -43,6 +43,9 @@ sub valuecolor {
 sub parseCommand {
 	my ($msg, $server, $nick, $address, $channel, $disp,$model) = @_;
 
+	return if $channel !~ /^#/ && $msg =~ /^~/;
+	$msg = ".$msg"  if $channel !~ /^#/ && $msg =~ /^[^.!]/;
+
 	my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/) or return 0;
 
 	return 0 unless $disp->has_command($command,$channel);
-- 
2.39.2