From 153a4c40a136c7adf86f950b44c9c65b17853548 Mon Sep 17 00:00:00 2001
From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Thu, 30 Oct 2008 20:15:44 +0000
Subject: [PATCH] Fix regression regarding the automatic delivery of memos.

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@76 088b83a4-0077-4247-935c-42ec02c2848b
---
 core.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core.pl b/core.pl
index 0b8a2fb..9fb45c4 100644
--- a/core.pl
+++ b/core.pl
@@ -40,7 +40,7 @@ sub seen {
 	}
 	$heap->{ 'seen' }->{ uc( $who ) } = time;
 	if( exists( $heap->{ 'memo' } ) && exists( $heap->{ 'memo' }->{ uc( $who ) } ) ) {
-		$kernel->yield( "cmd", $who, "CHECKMEMO", $_[ARG2], $_[ARG3], $_[ARG4] );
+		$kernel->yield( "cmd", $who, "CHECKMEMO", $_[ARG2], $who, "send_private" );
 	}
 }
 
-- 
2.11.0