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