From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Thu, 30 Oct 2008 20:15:44 +0000 (+0000)
Subject: Fix regression regarding the automatic delivery of memos.
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=153a4c40a136c7adf86f950b44c9c65b17853548;p=destult.git

Fix regression regarding the automatic delivery of memos.

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@76 088b83a4-0077-4247-935c-42ec02c2848b
---

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" );
 	}
 }